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INTERFACE 


30, rue Condorcet - 75009 PARIS 
Téléphone : (1) 285.12.34 


VOTRE SPECIALISTE SINCLAIR 


POUR ZX 81 ET TIMEX 

- Clavier professionnel 

- Interface disquettes et lecteur 5” 1/4 

- Extensions de mémoire 16,32 et 64 K 

- Carte d'inversion vidéo 

- Carte génératrice de sons 

- Synthétiseur vocal 

- Générateur de caractères graphiques 

- Crayon optique 

- Prolongateur souple de bus 

- Filtre d'enregistrement 

- Interface pour poignée de jeu 

- Carte génératrice 16 couleurs 

- Carte auto répétition 

- Carte 8 entrées analogiques 

- Carte entrées/sorties 

- Programmateur d'Eprom 

- Carte Eprom 

- Beep clavier 

- Carte mère 

- Carte proto. 




clavier Pro Spectrum 950.- F. 


ET ENFIN LE Q.L. ! 


clavier Pro ZX 81 770.- F 


POUR ZX SPECTRUM 

- Clavier professionnel 

- Interface disquettes et lecteur 5" 1/4 

- Interface ZX 1 

- Lecteur de micro disquette 

- Micro disquettes pour micro drive en stock 

- Extension de mémoire externe 16/48 K 

- Interface type Kempston pour joystick 

- Interface programmable pour joystick 

- Amplificateur de son réglable 
jusqu'à X 10 

- Synthétiseur vocal 

- Modulateur noir et blanc 

- Interface mixte Centronics/RS 232 

- Interface Péritel 

- Crayon optique 

- Carte 8 entrées analogiques 

- Carte entrée/sortie 

- programmateur d'Eprom 

- Carte Eprom 

- Raccordement pour moniteur 
monochrome 

- Prolongateur souple de bus 


TRES GRAND CHOIX DE LOGICIELS UTILITAIRES ET LUDIQUES (IMPORTATION DIRECTE) 
IMPRIMANTES : SEIKOSHA - EPSON - STAR - MANNESMANN TALLY 
MONITEURS MONOCHROMES ET COULEURS : ZENITH - PHILIPS - TAXAN - BMC 


TELEVISION — LOCATION 

- POSTES SECAM AVEC SORTIE PERITEL 

- POSTES MULTISTANDARDS PAL SECAM 

COMPATIBLES MICRO - ORDINATEURS 


Agréé 


LOCATEL& 


CATALOGUE GENERAL ET TARIFS : 10.- F. 
(remboursable à la première commande) 


NOM . 
ADRESSE.. 


. Prénom. 


Code Postal. 


_. .VILLE.. 


A retourner à INTERFACE, 30, rue Condorcet, 75009 Paris. 


















« Vous êtes en train de devenir trop difficiles : il y 
a beaucoup trop de choses en langage machine 
ou en assembleur...Pour pouvoir utiliser la plu¬ 
part des programmes d’ORDI-5, il faut déjà être 
très fort ! » 


Voici une observation qui revient de plus en plus 
dans le courrier et au cours des contacts pour 
contrebalancer les nombreux témoignages de 
satisafaction que nos lecteurs continuent à nous 
prodiguer. 


C’est vrai : en prenant un peu de recul, on doit 
admettre que la revue a connu une légère dérive 
par rapport à ses débuts : la matière est de 
moins en moins directement accessible aux in¬ 
formaticiens qui en sont au stade de l’initiation. 


C’est que les lecteurs - qui font le journal pour 
l’essentiel - sont de plus en plus forts : les pro¬ 
grammes qui nous sont envoyés sont remarqua¬ 
bles dans une proportion régulièrment accrue et 
il devient parfois éprouvant de résister à publier 
certains d'entre eux, magnifiques mais particu¬ 
lièrement complexes et totalement inexplicites 
pour les non-initiés. Tout se passe comme si 
ORDI-5 avait suivi le niveau d’éducation informa¬ 
tique ambiant sur trois années, niveau qui n’a 
pas cessé de progresser, tous les observateurs 
s’accordent à le dire. 


Mais ce n’est pas une excuse, et il ne faut pas 
oublier ce que Sinclair et ses produits ont fait 
pour l’initiation informatique de millions d’esprits 
ouverts et curieux, jeunes et moins jeunes. Aussi 
revenons-nous à la règle que nous nous étions 
fixé à l’origine : au moins un article d’initiation 
par numéro et « doucement les basses » sur le 
langage machine... 


Il faut nous aider à tenir ce cap moyen ; on a 
glissé un petit sondage dans ce numéro avec 
quelques questions indiscrètes sur vous et votre 
ordinateur, tout ça pour faire le point ; si vous 
avez la gentillesse de le remplir, ce sera aussi 
une façon de veiller à ce que le journal reste bien 
comme vous l'avez aimé. 
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Si vous utilisez 
un ordinateur 
SINCLAIR 

pectrumamve lié#***, - rjai*sa° (ZX 81, ZX 80, Spectrum, Spectrum + 

A JÎ^L( jg ou QL) ou si vous comptez en acheter 

' j.'. " ' un, sachez que la revue ORDI-5 

Jk aeF t a été créée pour vous. Indépendante de tout 

constructeur ou importateur, ORDI-5 vous 

. .'• fournit quatre fois par an des programmes, des conseils, 

des astuces, de nouvelles idées d’utilisation. ORDI-5 teste pour vous en toute objectivité 
et indépendance les produits matériels et logiciels adaptables sur votre SINCLAIR. 
ORDI-5 vous tient au courant de toutes les nouveautés susceptibles de vous intéresser. 

Commandez un numéro ou... abonnez-vous, vous économiserez 20%. 


BON DE COMMANDE 

à retourner à ORDI-5, 8 me Saint-Marc 75002 PARIS 

Nom_____ 

Adresse__________ 

Pays__Code postal_Ville ___ 

□ Je désire recevoir les 4 derniers numéros parus et m'abonner pour recevoir les 4 prochains numéros. 

(France 180 FF ; Etranger* 200 FF ; par avion 350 FF). 

□ Je désire recevoir les numéros antérieurs suivants :___________ 

(prix d’un n° 28 FF ; Etranger* 33 FF ; par avion 45 FF). 

□ Je désire m’abonner à ORDI-5 pour 1 an, 4 n° s à partir du n°_ 

(tarif France 90 FF ; Etranger* 100 FF ; par avion 180 FF). (Actuellement ORDI-5 est trimestriel). 

Ci-joint mon règlement indispensable par chèque bancaire □ chèque postal □ virement □ 

•Pour les pays autres que la France, utiliser un virement en FF compte Crédit Lyonnais Paris n° 30002 00402 8455 J. Les frais de virement sont à la charge de l'acheteur. 
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Pas de PASCAL pour PAQUES 

- J'aimerais savoir s’il est possible de program¬ 
mer en PASCAL sur le ZX 81 : existerait-ii une 
cassette pour cela comme sur le Spectrum ? G. 
MALBANT. 

* Malheureusement nous ne connaissons pas de 
cassette PASCAL pour le ZX 81 alors qu’il exis¬ 
te du FORTH et d’excellents assembleurs pour 
cet appareil. La raison pourrait en être qu’un 
compilateur PASCAL occupe beaucoup de pla¬ 
ce en mémoire et que le ZX 81 non modifié ne 
peut adresser qu’un maximum de 32K, ce qui ne 
laisserait plus’ beaucoup d'espace pour les pro¬ 
grammes en PASCAL eux-même. Le temps de 
charge du compilateur serait aussi très long et 
pourrait décourager. Néanmoins on aurait pu 
penser à un mini-PASCAL d'initiation.... 


Indélicatesses 

- La couverture du numéro 10 d’ORDi-5 porte en 
titre « 35 programmes inédits ». Or, peut-on 
qualifier d’inédit le programme « XXX » ? (nous 
avons pris la décision de ne pas donner le nom 
de ce programme). Son « auteur » s’est contenté 
de recopier, en ne changeant presque rien, un 
programme paru dans « Le grand livre du Spec¬ 
trum » deTim HARTNELL... M. CAMUSSO. 

* Nous avons l’oeil, en principe, pour repérer les 
programmes qui s’inspirent trop directement de 
programmes déjà publiés. Mais, si vigilants que 
nous puissions être, notre « culture informati¬ 
que » a des limites et nous pouvons laisser ainsi 
passer des programmes « pas-tout-à-fait- 
originaux ». Quand celà se produit, nous ne 
sommes pas contents, mais nous sommes plus 
tranquilles que d’autres revues : 

- d'abord parce que c’est moins fréquent à 
ORDI-5 qu’ailleurs pour la raison que nos colla¬ 
borateurs connaissent très bien la littérature du 
matériel ZX et n’ont pas à se préoccuper des au¬ 
tres matériels ; 


- ensuite parce que ORDI-5 est une revue convi¬ 
viale écrite par ses lecteurs, ce sont donc eux 
qui courent directement le risque d’être poursui¬ 
vis pénalement pour contrefaçon par les auteurs 
(les vrais I). A bon entendeur, salut. 

- J'ai remarqué deux fois, depuis le début de vo¬ 
tre revue, qu’un même programme était édité si¬ 
multanément, à quelques jours ou semaines de 
distance, dans ORDI-5 et dans une autre revue ; 
ça vous parait normal ? Cl. PERRIN 

* Nous savons parfaitement de quels program¬ 
mes vous parlez...Ils nous ont causé assez de 
« stress ». Souvent les jeunes auteurs envoient 
leurs programmes à plusieurs revues en même 
temps, sans prendre ia précaution de signaler à 
chaque revue qu’elle est en concurrence avec 
d’autres, et donc, impossible de passer des 
coups de fil aux collègues pour savoir qui prend 
quoi, et quand. Heureusement , la très grande 
majorité des géniaux correspondants d’ORDI-5 
est parfaitement correcte. De toutes façons, les 
auteurs de doublons font ça une fois mais pas 
deux : ils sont vite repérés et on ne prend plus 
rien d’eux nulle part. 


Je veux me faire éditer... 

- J’ai crée un logiciel du genre « Donjons et Dra¬ 
gons » sur ZX-81. Pouvez-vous me donner quel¬ 
ques adresses auxquelles je pourrais i’envoyer 
pour qu’il soit édité ? Cyril DUFER 

* Par le mot « éditer » entendez-vous « simple¬ 
ment éditer » ou « commercialiser sur casset¬ 
te » ? Dans le premier cas, il vous suffit de l’en¬ 
voyer à une revue qui publie des programmes ; 
si le votre est bon, il sera imprimé et ceci consti¬ 
tuera une bonne preuve que vous êtes bien l’au¬ 
teur du programme, pour bénéficier de la « pro¬ 
tection littéraire et artistique ». 

Si vous souhaitez commercialiser sur cassette, il 
faut que vous preniez contact avec une maison 
de soft (de préférence française) comme ERE In- 
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formatique ou LORICIELS (ces deux exemples 
étant choisis sans exclusive) : vous trouverez fa¬ 
cilement leur adresse sur les jaquettes des cas¬ 
settes déjà distribuées. Si votre programme est 
bon, ils vous proposeront de signer un contrat 
aux termes duquel ils vous offrirons soit un for¬ 
fait, soit une proportion des droits (10 à 20 %). Il 
ne faut pas vous attendre à de gros cachets 
dans les débuts car la concurrence est vive. 

Nous vous donnons volontiers un conseil : si 
vous voulez avoir quelques chances que votre 
programme soit examiné dans des délais raison¬ 
nables, il vaut mieux joindre les photocopies de 
programmes que vous avez antérieurement fait 
passer dans la presse informatique...cela fait un 
dossier sérieux. 


Où puis-je trouver... 

- Ou puis-je trouver le « Spectrum Hardware Ma- 
nuai » de Adrian Dickens dont vous avez parlé 
dans ORDI-5 no 6 ? M. DUCHENE. 

- Où peut-on commander les livres de Andrew 
HEWSON (Ordi-5 no 7)? 

* Voici l’adresse anglaise de « Melbourne Hou- 
se » qui édite le premier de ces ouvrages : 
MELBOURNE HOUSE PUBLISHERS LTD 
Glebe Cottage, Glebe House, Station Road, 
Cheddington, Leighton Buzzard, Bedfordshire, 
LU7 7NA, G.-B. 

et celle de HEWSON CONSULTANTS qui édite 
I© second * 

HEWSON CONSULTANTS, 60A ST Mary’s St., 
Wallingford, Oxon, G.-B. 
mais vous avez tout intérêt à prendre connais¬ 
sance de la lettre suivante, à nous adressée par 
LOGISOFT à TOULOUSE auquel vous pouvez 
passer commande, comme à d’autres librairies 
informatiques bien fournies dont nous avons 
parlé à l'occasion dans nos colonnes : 


Monsieur, 

... notre attention a été attirée par votre article 
paru dans ORDI-5 no 9 concernant les difficultés 
pour obtenir « The Ins and Outs of TIMEX 
1000.ZX 81 » 

J’ai l’honneur de vous faire savoir que nous im¬ 
portons et commercialisons d'une façon réguliè¬ 
re cet ouvrage. Il en va de même pour tous les 
livres utilitaires touchant au ZX81 et au Spec¬ 
trum, etc... (suit une liste importante d’ouvrages 
en Anglais) 



v!v 

;XvX?XvXxX;XvXvXvIv»v»>X*XïXvX?XvX»X*X*X*X ,, Iv 


M LOGISOFT >: 


*:>: S.A.R.L. 

•Xv 

39 rue de Tunis 


m B. P. 2392 


Sg 31086 TOULOUSE Cedex ¥ 


X-XvsttvX^'X'X'X^rXvXvXvXv’lXlXX'X'X-XwX'X*: 



Problèmes 

- Je vous écris au sujet du programme LOTO 
(ORDI-5 no 10); j’ai passé un certain temps 
pour entrer ce programme et je n’arrive pas à le 
faire fonctionner. M. ROSA 

* Il y a effectivement un problème avec ce pro¬ 
gramme : nous allons publier dès que possible 
un rectificatif. 

- J’ai acheté la cassette ZX TRANS dont vous 
avez parlé ; malheureusement, il est absolument 
impossible de transférer un seul programme du 
ZX81. L. DUPONT 

* Nous avons testé ce logiciel avec le plus grand 
soin et obtenu de très bons résultats en respec¬ 
tant les contraintes annoncées par la notice 
(programmes graphiques notamment). Cepen¬ 
dant beaucoup d’éléments peuvent intervenir 
pour rendre les manipulations difficiles : vérifiez 
d’abord que la cassette vendue n’est pas défec¬ 
tueuse, ce qui se produit très souvent, il faut 
alors en demander le remplacement ; vérifiez en¬ 
suite que vos cassettes ZX 81 soient enregis¬ 
trées dans les meilleures conditions possibles, 
c’est-à-dire qu’elles soient lisibles par un lecteur 
de cassettes différent du votre, etc. Quoi qu’il en 
soit, le logiciel lui-même, sous réserve des res¬ 
trictions exprimées, n’est pas en cause. 
Recontactez-nous si vos mécomptes subsistent. 


Mystère 

- Qu’est-il arrivé au disquettes CYBORG ? On di¬ 
rait que vous avez bien fait de ne pas en parler, 
les évènements ont donné raison à votre discré¬ 
tion. F. GUEDRON 

* La prudence a effectivement été bonne 
conseillère dans ce cas : elle consiste pourtant 
simplement à ne parler que des matériels que 
nous avons vus ou essayé. 


Désassembleur et imprimante. 

Merci pour votre excellent revue que j’apprécie 
beaucoup. 

Merci également à Robert SALVAT pour son ar¬ 
ticle « Désassembleur et imprimante » (ORDI-5 
no 8). Cette modification est effectivement des 
plus utiles pour liste un programme en CM avec 
ses mnémoniques et ses adresses. 

Voici quelques indications pour réaliser une sau¬ 
vegarde sur cassette du programme ainsi modi¬ 
fié. 


1 ) Charger le Fast Load Monitor ; 


2) Charger une première fois le progiciel désas¬ 
sembleur pour ZX81 d’ARTIC COMPUTING et 
presser une touche ; 
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3) le charger une seconde fois en ayant pris soin 
préalablement d'empêcher le lancement du pro¬ 
gramme par l'appel de la routine : 

CD 23 0F CB FA C3 47 03 

4) a l’aide du désasembleur appelé par RAND 
US R 28500 : 

- modifier le décompte des lignes du cycle de 
désassemblage à partir de l’adrese 4E9b, qui se 
trouve dans la REM no 0 comme le montrait Ro¬ 
bert SALVAT pour l’adresse 7D9B ; 


- modifier la REM no 100 du moniteur à partir de 
l’adresse 50FA pour pouvoir y implanter le 
transfert des routines de 6F57 ; 


5) Modifier le programme Basic sans oublier en 
ligne 236 de remplacer POKE 20145 par POKE 
20745 faute de quoi le code 5109 serait mal in- 
teerprèté ; 

6) lancer une sauvegarde par GOTO 270 et vous 
aurez ainsi une copie sous FLM de votre progi¬ 
ciel prêt à imprimer des copies d’écran de dés- 
sassemblage par pression d’une touche « shif- 
tée ». J.-P. THOMAS. 


A propos du programme CHAIN (ORDI5 n° 8) 

Le programme CFIAIN a été publié page 21 de 
ORDI-5 n° 8 dans l’encadré au début de l’article. 
Ce programme est très court puisqu’il ne 
comprend que 7 instructions. 

Il a pour fonction de transférer dans la zone ré¬ 
servée de RAMTP (aux adresses 32672 à 
32767) le programme en langage machine 
contenu dans CS (instruction n° 30). 

Le programme CHAIN est conçu pour chaîner 
deux programmes BASIC. 

Programme CHAIN 
Partie BASIC 

10FAST 

30 LET C$= « ED4BFE7FC6C5217D403 
El BCD2605C10B79BO20F1 Cl 2AO440117 
D40EDBOC92A0440ED72444D2A0C40117 
D40ED5222FE7FEB2A0440ED52220440E 
D42EB21000039EDBOEBED52545D39F92 
A024019220240ED4BFE7F217D40ED5B0 
44EDBOC90000 » 40 FOR R = 32672 TO 

32767 

50 POKER, CODEC$(1) 16=CODEC 
$(2)-476 

60 LET C$=C$ (3 TO) 

70 NEXT R 
80 SLOW 

_C. REMY 
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Spectrum Horticolum. 

L'informatique n’est pas exactement une activi¬ 
té de plein air. Pourtant deux Anglais naturalis¬ 
tes qui ont longtemps vécu en Inde, les HODDS, 
viennent de commercialiser un programme pour 
rationaliser le jardinage : ce programme, qui 
suggère le type de fleur à planter ou l’activité de 
culture à prévoir en fonction des données du cli¬ 
mat, de l'époque, de l'exposition etc., est bien 
l’application la plus originale que nous ayons re¬ 
levée récemment pour un ordinateur Sinclair. 


L’ordinateur à la langue bien pendue. 

L’APL est un langage synthétique particulière¬ 
ment apte à gérer les tableaux numériques à 
grande vitesse ; il exige malheureusement un 
nombre de symboles élevé que l’on ne trouve 
pas sur les ordinateurs domestiques habituels. 
Une version de l’APL disponible pour le QL exis¬ 
te désormais : dans cette version les symboles 
ont été remplacés par des mots brefs. L'imple- 
mentation de ce langage sur le QL qui est déjà 
réputé être un ordinateur rapide pour les calculs 
pourrait faire merveille. 

Rappelons que FORTH et PASCAL existent dé¬ 
jà pour QL, ce qui ne veut pas dire qu’il soit faci¬ 
le de se les procurer : le QL lui-même est resté 
une denrée rare pendant de nombreux mois. 

Les logiciels de langages performants pour le 
QL se multiplient. Notons chez METACOMCO 
un assembleur aux spécifications très intéres¬ 
santes , un LISP très orienté sur les possibilités 
graphiques, et un BCPL, variante du langage C 
qui compte de plus en plus d'adeptes. 


Soft Boutique. 

La première boutique exclusivement consacrée 
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à la distribution de logiciels pour micro¬ 
ordinateurs vient d'ouvrir ses portes : il s’agit de 
« Logiciel Pilote » à Paris, 


QL-ques chiffres. 

Il semble que les ventes du QL aient un peu dé¬ 
çu les concepteurs de cet appareil puisque 
« seulement » 50 000 QL ont été vendus à ce 
jour : entre nous ce n’est pas si mal pour un ordi¬ 
nateur qu’on a eu tant de mal à obtenir au dé¬ 
but. 

Le Club des utilisateurs du QL, le QLUB, à voca¬ 
tion internationale, peut maintenant s’enorgueil¬ 
lir de plus de 100.000 adhésions. 


Dernières cartouches. 

Le prix des cartouches microdrive vient de tom¬ 
ber de 60 % en Angleterre c'est-à- dire qu'elles 
ne coûtent plus que deux petites livres l'unité ; 
quand allons nous cesser de les payer allègre¬ 
ment 80 F sur le continent ? 

Plus de 800.000 cartouches microdrive ont été 
fabriquées à ce jour. Ce chiffre peut « en jeter » 
mais ça ne fait pas beaucoup par Spectrum en 
circulation. 


...et pour après-demain. 

Sinclair annonce qu’une société va être prochai¬ 
nement créée pour développer et fabriquer des 
semi-conducteurs à intégration par tranche de 
silicium : cette génération de circuit s’appelle 
WSI. 


L’Informatique en vacances 

L’Institut Européen des Techniques Nouvelles, 
association de la loi de 1901 nouvellement 
créée, s’est fixé dans son objet, parmi d'autres 
actions, l’organisation de stages en session 
d’été d’initiation à l’informatique. Pris de la for¬ 
mation 1350 F. 

L’Association Nationale Sciences Techniques 
Jeunesse, association en relation avec le Palais 
de la Découverte, (A.N.S.T.J.) organise des sé¬ 
jours d’été dans différentes régions consacrés à 
l'initiation à l’informatique dans un cadre de va¬ 
cances. Les prix dépendent de la longueur du 
stage et vont de 1800 à 3500 F. 

L'association Stages Loisirs Vacances organise 
des stages d’initiation à l’informatique en Juillet 
Août 1985 dans les Alpes de Haute Provence. 
Prix du stage (autres frais exclus) 1890 F 


Poisson d’avril 


La version AZERTY du QL était annoncée pour 
Mars 1985. Au 1er avril, ceux qui attendent im¬ 
patiemment cette version pour utiliser l’appareil 
à fond en traitement de texte doivent se rendre à 
l’évidence, rien à l’horizon. 


Du sûr pour demain... 

Les utilisateurs de QL qui considèrent les micro- 
dives comme un support insuffisamment fiable 
et rapide pour les application professionnelles 
lourdes seront satisfaits d’apprendre que la fir¬ 
me COMPUTAMATE est sur le point de 
commercialiser une interface qui autorise le 
branchement du QL à la plupart des lecteurs de 
disquette 3,5 ou 5,25 pouces. 

Le QL se lance hardiment dans la télématique 
avec un programme des plus ambitieux. David 
Karlin, l’ingénieur en chef de la firme Sinclair, a 
présenté récemment trois unités superposables, 
ayant chacune l'encombrement d’un tiers de 
QL, qui ont pour fonction de transformer cet or¬ 
dinateur en puissant instrument télématique : il 
s’agit d’une interface de communication, d’un 
modem, et d’un composeur automatique. Beau¬ 
coup de discrétion sur les prix... 

Un disque dur pour le QL ? C'est un projet de la 
firme QUEST qui a choisi un disque Winchester 
capable de stocker 7.5 Mega-octets. 




r-Sy Adresses des sociétés 
et organismes mentionnés 

Association Nationale Sciences Techni¬ 
ques Jeunesse (A.N.S.T.J.), secrétariat : 
17 avenue Gambetta, 91130 RIS- 
ORANGIS 

Association Stages Loisirs Vacances, 9 
allée des Tamaris, 78480 VERNEUIL 

HODDS Software, Llangeithio Nurseries, 
Llangeithio, Tregardon, Dyfed, SY25 
6QG, G.-B. 


Institut Européen des Techniques Nou¬ 
velles, 39 rue Paul Eluard, 91390 MOR- 
SANG SUR ORGE. 

METACOMCO, 26 Portland Square, 
Bristol BS2 8RZ, G.-B. 

LOGICIEL PILOTE, 5 rue des Colonnes, 
75002 PARIS 

LORICIELS (Nouvelle adresse), 53 rue 
de Paris, 92100 BOULOGNE 
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LIBRAIRIE 


5 livres lus pour vous 


1001 idées pour l’ordinateur personnel 

Par Mark Sawusch 


Voici un titre capable d’éveiller la curiosité de 
tout possesseur de micro-ordinateur qui se sen¬ 
tirait gagné par le doute quant à l’utilité pratique 
de sa machine. 


N'oublions pas que 20 à 30 % des ordinateurs 
achetés semblent échouer en quelques semai¬ 
nes au fond d'un placard ! 

Ce livre ne peut cependant pas être considéré 
comme un remède miraculeux : pas question de 
loger 1001 programmes « clés en mains » dans 
212 pages ! 

L’ouvrage s’adresse donc, non pas au débutant 
désorienté, mais au programmeur moyen à 
court d’idées : l’auteur ne prétend pas expliquer 
« comment faire », mais plutôt « que faire ». 

Mark Sawusch n’a cependant pas pu résister, 
semble-t-il, à la tentation de publier de place en 
place quelques programmes de son cru. 

L’idée n’est pas mauvaise, et a certainement 
contribué au bon équilibre texte-illustrations de 
l’édition américaine. 


La version française est bien évidemment une 
traduction, et on regrettera vivement que la plu¬ 
part des logiciels, bien qu’adaptés, ne puissent 
servir qu’à un utilisateur US : n’allez pas tenter 
de vérifier vos intérêts de caisse d'épargne avec 
ce programme destiné à un livret américain ne 
tenant aucun compte de la règle des quinzai¬ 
nes ! 

N’estimez pas davantage le coût de vos appels 
téléphoniques au moyen de cet autre logiciel ap¬ 
pliquant un minimum de perception de trois mi- 
nutres... 

A côté de ce petit point faible qui, il faut 
l’avouer, aurait été bien délicat à corriger, nous 
devons reconnaître que l'ouvrage est une mine 
d’excellentes idées : nous défions n’importe quel 
lecteur de parcourir ce livre sans y glaner au 
moins une ou deux applications nouvelles pour 
son ordinateur, mais peut-être bien davantage. 


Les domaines abordés sont en effet suffisam¬ 
ment variés pour que chacun puisse se sentir 





IOOI IDEES POUR 


L DRDinFllEUR PERSORREL 

. R7RRI& SRLÜUSEH 


concerné : affaires, finances, mathématiques, 
sciences et techniques, enseignement, hobbies 
spécialisés (radio, photo, etc.), jeux, automatis¬ 
me, etc... 


Bref, ce livre, c’est tout simplement de « l’imagi¬ 
nation en libre-service », mais n’oubliez tout de 
même pas que si avoir une idée représente 50 % 
du travail, l’autre moitié reste à accomplir pour 
aboutir à un logiciel en ordre de marche ! 

Avec plus de mille idées répertoriées, vous ne 
risquez plus guère de vous ennuyer devant votre 
clavier... quelle qu’en soit la marque, Sinclair ou 
autre ! 


P. G. 


Robotisez votre ZX 81 

Par P. Gueulle 
Environ 80 F, 128 p. 


Voici un ouvrage qui réjouira tous les posses¬ 
seurs, et ils sont légion, d’un ZX 81, mais qui 
s’adresse plus spécialement aux « électroni¬ 
ciens ». Tout lecteur soigneux et sachant manier 
un fer à souder, peut parfaitement réaliser les 
montages décrits. L’auteur explique d’abord, 
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l’organisation matérielle interne du ZX 81, ainsi 
que les notions d’interruption et d'entrées/sor¬ 
ties. Ceci permet de découvrir des applications 
inattendues : en utilisant les prises normalement 
réservées au raccordement d’un enregistreur, 
M. Guëulle conçoit des cartes ayant de multiples 
entrées et/ou sorties, ainsi que la réalisation 
d'un synthétiseur HF programmable. 

L’utilisation d'une extension mémoire de 16 K, 
met hors service la RAM de 1 K dont son équi¬ 
pés les ZX 81. En intervenant sur la mémoire et 
en la réorganisant, l’auteur montre le moyen de 
récupérer cette mémoire et réalise un générateur 
d’instructions REM, fort utile pour la program¬ 
mation en C.M. 

La description d’un programmateur d’Eprom, et 
la façon de remplacer la ROM du ZX 81, ouvrent 
des. horizons pour toutes les applications aux¬ 
quelles vous pouvez penser. Dès ce moment, 
vous n’avez plus un ZX 81, mais un robot. L’au¬ 
teur décrit également un petit afficheur autono¬ 
me, puisque l’écran d’une télévision n’est plus 
indispensable. 

Ensuite, l’auteur propose une carte sonore qui 
emploie un C.l. hautement spécialisé à 3 canaux 
de sons plus 1 de bruit qui permet de synthétiser 
une foule de sons ! Son emploi comme généra¬ 
teur contrôle.la qualité des amplis. 

Bravo à cet ouvrage qui contient un tas de ren¬ 
seignements précieux sur un tas d’applications 
parfois utiles, toujours amusantes. 


M. H. 


Langage machine, trucs et astuces 
sur ZX Spectrum 

Par Pascal Pellier 
Editeur Eyrolles 
89 F, 152p. 


C'est presque l’assemblage de deux livres dis¬ 
tincts qu’il faut à notre, avis voir dans cet ouvra¬ 
ge proposé aux possesseurs de Spectrum après 
un « petit frère » consacré au ZX 81. 


- Une étude assez complète du microproces¬ 
seur Z 80 et de sa programmation (le langage 
machine proprement dit) 

- Un recueil de programmes machine en « piè¬ 
ces détachées » pour le Spectrum (les « trucs et 
astuces ») 

La première partie ressemble de près aux nom¬ 
breux ouvrages qui ont déjà été consacrés au 
Z 80. On n’y parle que fort peu du Spectrum : un 
peu au début, un peu à la fin, mais le pauvre or¬ 
dinateur Sinclair se fait totalement oublier entre¬ 
temps ! 

Ce n’est d’ailleurs pas bien gênant puisqu’aucu- 
ne manipulation pratique n'est proposée. Nous 
sommes en présence d’un cours magistral 
condensé, assez bien structuré et facile à suivre. 
Le passage à la pratique est prévu dans la se¬ 
conde partie, sous une forme qui nous semble 
plus discutable : pour faire fonctionner les quel¬ 
ques programmes proposés, le lecteur est qua¬ 
siment obligé d’acheter (assez cher d’ailleurs !) 
les utilitaires publiés par l’auteur dans la même 
collection... 

Il est permis de se demander si tous les logiciels 
proposés ont bien été mis au point sur un Spec¬ 
trum : le lecteur est invité à les « reloger » lui- 
même à des adresses autres que celles d’origi¬ 
ne, tandis que leur présentation sur 80 colonnes 
nous fait penser à des machines plus consé¬ 
quentes que le Spectrum. D’ailleurs, la plupart 
de ces logiciels font double emploi avec des rou¬ 
tines de la ROM du Spectrum, qu’il est facile 
d’appeler purement et simplement. 



En revanche, le choix des sujets abordés est pé¬ 
dagogiquement intéressant, car il permet de voir 
à l’œuvre la plupart des notions théoriques ex¬ 
posées dans la première partie du livre, et de 
mieux comprendre le fonctionnement de cer¬ 
tains organes complexes du Spectrum tels que 
l’écran, le clavier, l’imprimante ou le générateur 
de son, voire la sortie cassette. 

Il nous semble donc que cet ouvrage s’adresse 
davantage à un lectorat soucieux de s’initier sé¬ 
rieusement au langage machine du Z 80 (à la li¬ 
mite sans Spectrum !) qu’au programmeur Basic 
désireux d’étendre son rayon d'action grâce à 
l’assembleur. Bref, un honnête manuel de pro¬ 
grammation du Z 80, mais qui ne tient pas tout à 
fait les promesses de sa quatrième de couvertu¬ 
re, ce qui est presque une tradition ! 

____P. G. 
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INFORMATIQUE 


(cooperatives 

SCOLAIRES ,i_ 


QUAI FARCONNET . 
TOURNON-eurRHÔNE 



Le ZX-81 à l’école 

Coopérative Scolaire de Tournon-sur-Rhône 
100 pages-fiches, 60 F 


Programmez en basic sur Spectrum 

S.M. GEE, Sybex, 198pages, 88 F 




« Le ZX-81 à l’école » est un ouvrage qui sort 
nettement de l’ordinaire dans sa présentation : il 
ne s’agit pas d’un livre suivi mais d'une succes¬ 
sion de fiches destinées à l’enseignement élé¬ 
mentaire de l’informatique dans le cadre scolai¬ 
re. Les fiches, de difficulté graduée, sont 
divisées en deux paquets : paquet professeur et 
paquet élève. A chaque niveau, une fiche suggè¬ 
re à l’enseignant une méthodologie d'approche 
et une fiche symétrique destinée à l’élève indi¬ 
que à celui-ci des éléments de réponse. Cette 
présentation sous forme de fiches, unique en 
son genre, n'est pas un gadget, bien au contrai¬ 
re, elle oblige les auteurs à enfermer l'étude d’un 
problème (notion de test, utilisation d’un fonc¬ 
tion, trucs et astuces, etc.) dans une seule séan¬ 
ce : une certaine discipline est ainsi introduite 
dans l’apprentissage de l'informatique, ce qui 
fait contraste avec un bon nombre d’ouvrages 
qui partent dans tous les sens. 


L’inconvénient de cette formule est que ce livre 
n'est pas ouvert à tous les publics : il s’agit d’un 
instrument pédagogique assez spécialisé. Ce 
dossier, bien fait et original dans sa démarche, 
est à déconseiller aux « autodidactes » du ZX- 
81. En revanche, il tiendra une place honorable 
dans les écoles primaires qui ont des ateliers 
d’informatique ou des clubs autour de cet ordi¬ 
nateur. 


Le Spectrum est un ordinateur amusant et per¬ 
sonnel : aussi mérite-t-il que les ouvrages qui 
parlent de lui échappent également à toute ba¬ 
nalité. Ceux-ci doivent être ou spirituels ou 
conviviaux ou gais (avec une forte orientation 
sur les jeux) ou franchement sérieux, puisque 
cet ordinateur permet aussi de travailler dans de 
nombreux domaines. L’ouvrage de S.M. GEE ne 
possède aucune de ces qualités : il fait double 
emploi avec le manuel de base sans apporter 
d’ouvertures ou d’illustrations intéressantes. 


Sybex, qui a sorti de grands livres avec de 
grands auteurs a publié là un ouvrage qui ne 
marque pas. Qu’on nous comprenne : il ne s’agit 
pas d’un livre mauvais comme nous en avons vu 
passer que nous n’avons d’ailleurs pas ména¬ 
gés, mais d’un travail qui n’apporte pas grand- 
chose. 

Soyons cependant équitables : il existe dans ce 
livre, bien présenté par ailleurs, de bons passa¬ 
ges, notamment le chapitre sur les boucles et 
celui sur les manipulations de chaines de carac¬ 
tères ; sur ces problèmes, généralement délai- 
cats à exposer, il faut reconnaître que la dé¬ 
monstration est claire et bien organisée. Pour 
tout le reste - et avec le Spectrum, le reste, c’est 
beaucoup -, le livre est plutôt pauvre et dépour¬ 
vu de fantaisie. 
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La cartouche 
« MONSTOR 


La cartouche « MONITOR AGB » est une EPROM (mémoire morte 
contenant un utilitaire en langage machine. Elle est destinée aux 
possesseurs de ZX81, munis d’une extension mémoire de 16 à 48 K qui 
Connaissent un tant soit peu l’organisation mémoire de leur ordinateur. 

Le « MONITOR » se compose d’un seul boîtier avec 2 connecteurs au 
format du bus (1 mâle + 1 femelle) (Taille de la cartouche : 114 x 49 x 26). 
Les contacts n’ont pas posé de problème aux essais. 


Les routines par le menu 

Le monitor propose 14 routines que l'on appelle 
en faisant RAND USR (adr. d’entrée. En voici la 
liste, on jugera aussitôt de leur grande utilité. 

* SAUVEGARDE : Permet de sauver, charger et 
vérifier les programmes en vitesse rapide. Deux 
types de sauvegarde sont possibles : 

- Sauvegarde du programmé Basic (comme 
d’habitude mais plus vite !!) ; 

- Sauvegarde de la totalité de la mémoire, 
même derrière RAMTOP (Pratique pour les 
programmes en langage machine). 

* REM : Permet de créer une REM (en ligne 1 ), 
de la longueur que vous désirez. Cette REM 
contiendra les programmes en codes machine. 

* FREE : Cette routine renvoie le nombre d’oc¬ 
tets restant libre en mémoire pour l’écriture des 
programmes machines. 

* OUT/IN : Permet de sortir ou de lire un octet 
sur un port (par ex. : carte son, carte analogi¬ 
que, carte d’entrée/sortie), sans avoir à écrire 
un programme en langage machine (ces 2 routi¬ 
nes peuvent être appelées à partir d’un pro¬ 
gramme BASIC). 

* M>32 et 32>M : Nécessite au moins 32 K 
RAM pour fonctionner. Ces routines transfèrent 
un programme BASIC au-dessus de RAMTOP et 
vice et versa. 

* Blocage : Charge les programmes sauvés à 
partir du BASIC en vitesse normale, mais empê¬ 
che toute exécution automatique. 

* Menu : Comme son nom l’indique cette routi¬ 
ne nous propose un menu composé de plusieurs 
options dont : 

- Conversion : qui convertit un nombre binai¬ 
re, décimal ou hexadécimal dans ces 3 ba¬ 
ses (Evite de feuilleter l’appendice du ma¬ 
nuel du ZX81). 

- Deek : affiche le contenu d’une adresse 
dans les 3 bases citées précédemment. 

- LDIR : déplace un bloc d’octets d’un em¬ 
placement mémoire à l’autre. 

- RAMTOP : initialise RAMTOP sans avoir à 
faire NEW. 


Les utilités graphiques 

* CARACTERES GEANTS : Affiche 4 lignes de 
8 caractères en caractères 4 fois plus grands. 
Ces caractères sont formés de motifs PLOT. Un 
gros regret, l’affichage commence toujours en 
haut à gauche, il n'est donc pas possible de faire 
l’équivalent de PRINT AT. Par contre, on peut 
les mixer aux caractères normaux. Utilisable 
dans un programme BASIC. 

* BOX : Trace un rectangle en caractères 
PLOT. Il suffit de fournir les coordonnées de 
2 coins opposés. Peut aussi être inclus dans un 
programme BASIC. 

* INVERSION ECRAN : Son appel provoque 
l’inversion vidé, presque instantannée de 
l’écran. 


*LOAD ECRAN et SAVE ECRAN : Effectue la 
sauvegarde et le chargement de l’éran dans une 
zone mémoire (au-dessus de RAMTOP par 
exemple). Peut permettre de rappeler rapide¬ 
ment un menu ou une présentation. 

Cette Cartouche pourra se montrer d’une aide 
précieuse pour les possesseurs de ZX81 qui 
souhaitent récupérer avec un minimum de fati¬ 
gue les programmes-machine qu’ils trouvent 
dans les revues comme la nôtre. 

Il ne faut cependant pas perdre de vue qu’un ef¬ 
fort minime de compréhension du langage ma¬ 
chine peut permettre à l’utilisateur de maîtriser 
par lui-même la plupart des routines enfermées 
dans cette carte. Il ne s’agit évidemment que 
d’un investissement réduit, mais le ZX81 est si 
bon marché qu’il faut bien apprécier l’utilité 
d’une adjonction quelconque avant d'en faire 
l’acquisition. 


Ph. MOY 
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Banc d'essai 
carte graphique A GB 

La carte caractère AGB vous permettra de redéfinir le jeu complet de 
caractère du ZX81. Ces caractères seront utilisables en alternance avec 
le jeu de caractères d’origine. Vous pourrez ainsi rendre vos programmes 
plus réalistes, particulièrement pour les jeux. 


Attention au montage ! 

La carte ne s’enfiche pas comme l’extension 
mémoire ou l'imprimante dans le connecteur ar¬ 
rière du ZX81. Son montage nécessite le dé¬ 
montage de l’ordinateur et quelques soudures. 
En effet, la ROM doit être otée de son support et 
insérée dans la carte. Pas de problème si vous 
faites attention de ne pas tordre les pattes du 
circuit intégré (c'est très fragile !!) 

De plus, vous devrez souder 5 fils sur le circuit 
imprimé du ZX81. Heureusement le manuel est 
très clair sur ce point ; si vous êtes méticuleux et 
que vous ne provoquez pas de court-circuit tout 
ira pour le mieux. 

Quand tout cela aura été fait, vous n’aurez plus 
qu'à enficher le connecteur de la carte dans 
l’ancien support de la ROM. Mais la notice de 
montage n’est pas très explicite : ceux qui le 
préfèrent pourront faire effectuer ce montage 
par AGB dans un délai de 10 jours et un prix de 
60 F. 

Si vous désirez refermer le coffret du ZX81 vous 
devrez laisser la carte à l’extérieur avec ses fils 
rentrant dans le ZX. Vous devrez alors faire par¬ 
ticulièrement attention à ne pas tirer sur les fils 
(leur longueur est juste). 


En position RAM on poke à la bonne adresse 
l’octet correspondant au « dessin » de caractère 
souhaité. L’adressage peut être obtenue par la 
formule donnée plus haut. N’oubliez pas qu’un 
caractère est formé de 8 octets correspondant 
chacun à une ligne. 

Les caractères redéfinis ne sont pas affectés par 
NEW. Le mixage caractères redéfinis et caractè¬ 
res d’origine n’est pas possible. 

Vous pourrez avec la carte graphique écrire en 
minuscules, réaliser symboles mathématiques et 
vaisseau spatial, etc., quelle que soit notre confi¬ 
guration mémoire (1 K - 2 K -16 K... etc.). 


Un utilitaire d’aide à la redéfinition des 
caractères 

Ce programme vous assistera dans la définition 
de vos nouveaux jeux de caractères : il permet 
d’initialiser votre nouveau jeu de caractères pré¬ 
définis dans la ROM, de modifier à volonté cha¬ 
que caractère en utilisant l’écran comme un « té¬ 
lécran » et de voir le résultat en permanence. 
Vous pourrez aussi visualiser le jeu stocké en 
RAM et transférer soit le jeu que vous avez défini 
soit le jeu de caractère d’origine du ZX81 instan¬ 
tanément. 


Des principes simples 

Comme vous le savez, le jeu de caractère 
comprend 64 caractères (code 0 à 63). Les 
« dessins » de ces 64 caractères sont stockés 
dans la ROM, dans une partie nommée généra¬ 
teur de caractère, qui va de l'adresses 7680 à 
8191. Les représentations de caractères sont 
stockées à partir de 7680 dans l'ordre croissant 
des codes. A chaque caractère sont associés 
8 octets dont la traduction binaire forme le 
« dessin » du caractère. L’adresse du 1 er octet 
d'un caractère est donné par 7680 + 8* (code 
du caractère). 

Malheureusement le générateur se trouve dans 
la mémoire morte du Sinclair et ne peut donc 
être modifié pour changer éventuellement la for¬ 
me d’un caractère. Ceci devient possible avec la 
carte graphique. En effet, elle remplace à la de¬ 
mande la ROM génératrice de caractères par de 
la mémoire vive où vous pourrez redéfinir (par 
des « pokes ») tous les caractères. 

Pour passer de la ROM à la RAM, il suffit de faire 
POKE 7666,n (où n est un nombre compris em 
tre 0 et 255) et inversement. 


3BREM PROGRAMME D"flIDE fl Lfl 
REDEFINITION DE 
CARACTERES AVEC LA 
CARTE GRAPHIQUE AGB 
REM (0 1935 PH.MOY 

_ REM -- INITIALISATION 

10 LET CÜDER=1651S 
90 LET DATA1=16519 
30 LET DATA2=16520 
40 LET DATA3=16521 
60 POKE CODER,1 
70 RAND USR 16516 
90 SLOW 

100 REM ---- MENU 
105 CLS 


4 

5 


107 PRINT 
106 PRINT 
110 PRINT 
120 PRINT 
IMPLANTE" 

130 PRINT 
N CARACTERE 
160 PRINT 
EU D""ORIGINE" 
4 


MENU" 


" '1 ? AFFICHAGE DU JEU 
" 2:REDEFINITION D""U 

■ I 

3: IMPLANTATION DU J 


IMPLANTATION DU N 


170 PRINT 
OUVEAU JEU 
130 PRINT 
190 PRINT 
PTION” * 

200 INPUT 0 

210 IF 0<1 OR 0 >5 THEN GOTO 200 
220 IF 0=1 THEN GÜSUB 1000 


" 5:INITIALISATION" 

, , , , "CHOISISSEZ UNE 0 
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221 IF 0=2 THEN GÜSUB 2000 

222 IF 0=3 THEN GÜSUB 5000 

223 IF 0=4- THEN GOSUB 6000 
224- IF 0=5 THEN GOSUB 7000 
230 GOTO 100 

1000 REM AFFICHAGE DU JEU 

DE CRRfiCTERE 

1010 CLS 

1030 POKE 7666,0 
1040 FOR N=0 TO 63 
1050 PRINT CHRS N; 

1060 NEXT N 

1070 IF INKEY$="" THEN GOTO 1070 
1030 POKE 7666,1 
1090 RETURN 

2000 REM REDEFINITION D"UN 

CARACTERE 

2005 CLS 

2010 PRINT " REDEFINITION D""U 
N CARACTERE” 

2020 PRINT "CODE DU CARACTERE(0- 
63): 

2030 INPUT CO 

2040 LET CO=INT CO 

2050 IF CÛ<0 OR CO>63 THEN GOTO 

2030 

2060 PRINT CO 

2070 POKE CODER,2 

2030 POKE DATAI,CO 

2100 PRINT AT 5,8; ” MB m aw s ia ” 

2110 FOR N=1 TO 3 

2120 PRINT TAB S; " I I " 

2130 NEXT N 

2140 PRINT TAB 3; ” " 

2150 RAND USR 16516 

2151 PRINT AT 16,0;"DEPLACEMENTS 
* 5 6 "7 q ** 

2lé2'PRINT "MISE A 0 OU A 1:0,1" 
2153 PRINT "RETOUR AU MENU:R" 
2155 LET DF =PEEK’ 16396+PEEK 1639 
7 *256+208 
2160 LET C=0 
2170 LET L =0 

2130 IF PEEK (DF+C+L*33)=0 THEN 
PRINT AT 6'+L , C + 9; "H" 

2190 IF PEEK (DF+C+L*33)=CODE "* 
" THEN PRINT AT 6+L,C+9;"@” 

2200 IF INKEY$="5" THEN GÜSUB 26 
00 

2210 IF INKEY$="6" THEN GOSUB 27 
00 

2220 IF INKEY®="7” THEN GOSUB 23 
00 

2230 IF INKEY*s"8" THEN GOSUB 29 
00 

2240 IF INKEY$ = "6" THEN GOSUB 27- 
00 

2250 IF INKEY$="0" THEN GOSUB 25 
00 

2260 IF INKEY$="1" THEN GOSUB 25 
50 

2270 IF INKEY3i = "R" THEN RETURN 
2280 GOTO 2130 

2500 POKE CODER,4 
2505 POKE DATAI,CO 
2507 POKE DATA2,L 

2509 POKE DATAS,7-C 

2510 RAND USR 16516 

2520 PRINT AT 6+L,9+C;" " 

2530 RETURN 
2550 POKE CODER,3 
2555 POKE DATAI,CO 
2557 POKE DATA2,L 

2559 POKE DATA3,7-C 

2560 RAND USR 16516 

2570 PRINT AT 6+L,9+C;"*" 

2530 RETURN 

2600 IF C=0 THEN RETURN 

2610 IF PEEK ÎDF +C+L*33)=CODE "B 

" THEN PRINT AT 6+L,C+9;" ” 

2620 IF PEEK <DF+C+L*33) =CODE "il 
" THEN PRINT AT 6+L,C+9;"*" 

2630 LET C=C-1 
2640 RETURN 

2700 IF L=7 THEN RETURN 

2710 IF PEEK (DF+C+L*33)=CÜDE "I 

" THEN PRINT AT 6+L,C+9;" " 

2720 IF PEEK CDF+C+L*33)=CODE "B 
" THEN PRINT AT 5+L,C+9;"*" 

2730 LET L=L+1 
2740 RETURN 

2800 IF L=0 THEN RETURN 

2310 IF PEEK CDF+C+L*33)=CODE "1 

" THEN PRINT AT 6+L,C+9;" " 

2820 IF PEEK ÏDF+C+L*33)=CÜDE "B 


" THEN PRINT AT 6+L,C+9;"*" 

2830 LET L=L-1 ‘ 

2340 RETURN 

2900 IF 0=7 THEN RETURN 

2910 IF PEEK <DF+C+L#33)=CODE "I 

" THEN PRINT AT 6+L,C+9;" " 

2920 IF PEEK (DF+C+L*33)=CODE "1 
" THEN PRINT AT 6+L,C+9;"*" 

2930 LET C=C+1 
2940 RETURN 

5000 REM - IMPLANTATION JEU 

D"ÜRIGINE 

5005 CLS 

5010 POKE CODER,5 

5020 RAND USR 16516 

5030 PRINT "JEU D""ORIGINE IMPLA 

NTE" 

5040 IF INKEY$="" THEN GOTO 5040 
5050 RETURN 

6000 REM - IMPLANTATION JEU 

REDEFINI 

6005 CLS 

6010 POKE CODER,6 

6020 RAND USR 16516 

6030 PRINT "NOUUEAU JEU IMPLANTE 

6040 IF INKEY$="" THEN GOTO 6040 
6050 RETURN 

7000 REM - INITIALISATION 

7005 CLS 

7010 PRINT "UOULEZ-UÜUS FAIRE UN 
E REINITIALISATION (0/ 

N) " 

7020 INPUT NS 

7030 IF NS="N" THEN RETURN 

7040 IF N$ < >"0" THEN GOTO 7020 

7050 POKE CODER,1 

7060 RAND USR 16516 

7070 PRINT ,,"REINITIALISATION E 

FFECTUEE" 

7080 IF INKEY$=”" THEN GOTO 7080 
7090 RETURN 

3000 REM - 

8001 REM-F I N- 

8002 REM - 

Avant de faire tourner le programme il faut dé¬ 
placer RAMTOP : POKE 16388,246 : POKE 
16389,123 NEW. 


16514 113 118 24 4 6 55 
1&520 2 2 58 134 64 254 
16526 1 204 172 64 254 2 
16532 204 234 64 254 3 204 
16538 32 65 254 4 204 78 
16544 65 254 5 204 198 64 
16550 254 6 204 216 64 201 
16556 33 0 30 17 247 123 
16562 102 237 176 33 
16568 0 30 17 250 125 1 
16574 0 2 237 176 205 198 
16580 64 201 33 247 123 17 
16586 0 30 1 0 2 50 
16592 242 29 237 176 50 242 
16598 29 201 33 250 125 17 
16604 0 30 102 58 
16610 242 29 237 176 50 242 
16616 29 201 42 12 64 17 
16622 208 0 25 229 33 250 
16628 125 17 8 O 55 63 
16634 237 82 58 135 64 71 
16640 4 25 16 253 235 225 
16646 6 8 26 19 197 6 

16652 8 203 7 48 2 54 

16653 23 35 16 247 213 17 
16664 25 0 25 209 193 16 
16670 233 201 33 250 125 17 
16676 3 0 191 237 82 58 
16682 135 64 71 4 25 16 
16688 253 58 136 64 71 43 
16694 4 35 16 253 58 137 
16700 64 71 4 197 126 203 
16706 15 16 252 203 255 193 
16712 203 7 16 252 119 201 
16718 33 250 125 17 8 0 
16724 55 63 237 82 58 135 
16730 64 71 4 25 16 253 
16736 58 136 64 71 43 4 
16742 35 16 253 58 137 64 
16748 71 4 197 126 203 15 
16754 16 252 203 191 193 203 
16760 7 16 252 119 201 195 
16766 60 122 118 
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ESSAI 


JR DEBUT 
j PARAMETRES 

00 00 00 00 
;UARIABLES 


CHGMT = +7666 ; RAM <-> ROM 

CODER=+16518 

DATA1=+16519 

DATAS=+16520 

DATR3=+16521 

ROMCA=+?680 

DJEU0=+31735 

DJEU1=+32250 

DFILE=+16396 

; SELECTION DES ROUTINES 


DEBUT LD A,(CODER) 


CP 1 
CALL 
CP 2 
CALL 
CP 3 
CALL 
CP 4 
CALL 
CP 5 
CALL 
CP 6 
CALL 

RET 


POP HL 
LD B, S 

RFFI2 LD A,(DE) 

INC DE 
PUSM BC 
LD B, S 
AFFI3 RLC A 

JR NC AFFI4 
LD (HL),"S" 

AFFI4 INC ML 

DJNZ AFFI3 
PUSh DE 
LD DE,+25 
ADD HLiDE 
POP DE 
POP BC 
DJNZ AFFI2 
RET 

;************************ 

SETBI LD HL,DJEU1 
LD DE,S 
CP A 

SBC HL,DE 


Z INIT 
Z AFFIC 
Z SETBI 
Z RESET 
Z JEU0 
Z JEU 1 


************************ 


INIT 


; TRANSFERT 
;CARACT.ROM 

;-> jeu 0 


; TRANSFERT 
;CARACT.ROM 

;-> jeu 1 


JEU0 


LD HL,ROMCA 
LD DE,DJEU0 
LD BC,+512 
LDIR 

LD HL,ROMCA 
LD DE,DJEU1 
LD BC,+512 
LDIR 
CALL JEU0 
RET 

; ************************ 

LD HL,DJEU0 ; TRANSFERT 
LD DE,ROMCA ; JEU 0-> 

LD BC,+512 ; RAM CARTE 

LD (CHGMT),A 

LDIR 

LD (CHGMT),A 
RET 

;************************ 


LD A, (DATAI) 
LD B, A 
INC B 

SETBI ADD HL,DE 
DJNZ SETBI 

LD A, (DATA2) 
LD B, A 
DEC HL 
INC B 

SETB0 INC HL 

DJNZ SETB0 

LD A, (DATA3) 
LD B, A 
INC B 
PUSH BC 
LD A,(HL) 
SETB2 RRC A 

DJNZ SETB2 
SET 7,A 

POP BC 
SETB3 RLC A 

DJNZ SETB3 
LD (HL),A 
RET 


;CODE CARAC 


; LIGNE 


; COLONNE 


; ************************ 


JEU1 


; TRANSFERT 
iJEU 1 -> 
j RAM CARTE 


LD HL,DJEU1 
LD DE,ROMCA 
LD BC,+512 
LD (CHGMT),A 
LDIR 
LD (CHGMT) , A 
RET 

;************************ 

AFFIC LD HL, (DFILE) 

LD DE,+208 
ADD HL,DE 
PUSH HL 

LD HL,DJEU1 
LD DE,8 
SCF 
CCF 

SBC HL,DE 
LD A,(DATAI) 

LD B,A 
INC B 

AFFI1 ADD HL,DE 
DJNZ AFFI1 

EX DE,HL 


RESET LD HL,DJEU1 
LD DE, 8 
SCF 
CCF 

SBC HL,DE 

LD A, (DATAI) 
LD B, A 
INC B 

RESE1 ADD HL,DE 
DJNZ RESE1 

LD A, (DATA2) 
LD B, A 
DEC HL 
INC B 

RESE0 INC HL 

DJNZ RESE0 

LD A,(DATA3) 
LD B,A 
INC B 
PUSH BC 
LD A,(HL) 
RE3E2 RRC A 

DJNZ RESE2 
RES 7,A 

POP BC 
RESE3 RLC R 

DJNZ RESE3 
LD (HL) , A 
RET 


---F I N--- 


Ph. MOY 
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QL RAM __ 

Extensions mémoire 
64 K - réf. hd 96- 1350 F 
256 K - réf. hd 97 - 2595 F 
512 K - réf. hd 98 - 4850 F 

QL DISC DRIVE __ 

Connectez n’importe quel lecteur de disquette 3 - 
3,5 ou 51/4 de pouce. 

Simple ou double face, simple ou double densité, 40 
ou 80 pistes. 

Supporte de 178 K à 1.44 megaoctels. 

Réf. hd 99 - 1950 F 


Inconcevable de ne pas pos¬ 
séder ce logiciel utilitaire. 
Prenez un programme BASIC 
ajoutez-y BLAST, appuyez 
sur la touche C. En quelques 
secondes votre programme 
est compilé en langage 
machine et tournera 40 fois 
plus vite. Il sera plus perfor¬ 
mant et, si vous voulez les 
faire éditer, les droits 
d’auteurs dB ce logiciel sont 
laissés libros de tout Copy¬ 
right. Réf. su 51 - 315 F 
Spectrum _ 




TOOLKIT - rél. su 44 - 170 F 
PASCAL - réf. su 45 - 650 F 
FORTH - réf. su 46 - 520 F 
LISP - rél. su 09 - 850 F 
BCPL - réf. su 04 - 850 F 
ASSEMBL - réf. su 03 - 590 F 
ASSEMBL - réf. su 47 - 395 F 
DESASS - réf. su 48 - 350 F 
CHESS - réf. sg 86 - 350 F 
BRIDGE - réf. sg 77 - 280 F 
ENTREPRENEUR - réf. su 49 - N.C. 
PROJECT PLANNER - rél. su 50 - N.C. 
DECISION MAKER - réf. su 51 - N.C. 


QL CONNECTION_ 

INTERFACE CENTRONICS - rél. hd 93 - 439 F 
MODULATEUR UHF N&B - réf. hd 72 - 215 F 
INTERRUPTEUR - réf. hd 92 - 70 F 
ADAPTATEUR JOYSTICK - réf. hu 44 - 75 F 
CABLE RS 232 - rél. hu 43 - 195 F 



QL : réf. hd 10-5 560 F 
128 K RAM extensible à 640 K 

• 32 bits. 

• 2 microdrives, 2 sorties RS 
232 


• 2 sorties joystick. 

.• Extension RAM. 

• Livré avec : 

• 4 logiciels, 1 cordon Péritel, 
1 notice en français. 

F; réf. hd 09 


LE DESASSEMBLAGE 
DE LA ROM DU QL _ 

EN FRANÇAIS 
Désassemblage complet, listé et com¬ 
menté ligne à ligne, de l'ensemble 
des routines du QL de Sinclair. 

Outil de base du développeur de logi¬ 
ciel. cet ouvrage constitue également 

Revendeurs, 


une excellente initiation au langage 
assembleur du 68000 (plus de 44 Ko 
de routine étudiées). 

Tous les mystères du QL enlin dévoi¬ 
lés, des richesses insoupçonnées 
mises à jour, une clé unlgue pour uti¬ 
liser les potentialités exceptionnelles 
de votre ordinateur. 

Prix 195 F - Rél. hb 45 


librairies, nous consulter 


OQOÜOCQO 

QDaOOQDQ 

□□□□□□□O 

SPECTRUM 
QL 
ZX 81 

DRAGON 32 



DE NOUVEAUX LOGICIELS ET ACCESSOIRES, POUR VOTRE ORDINATEUR 


oaaoocoa 

aDDGOODQ 

ODooooaa 

ORIC 
ATMOS 
CBM 64 
AMSTRAD 


SPECTRUM PLUS PAL - rél. hu 08 
1660 F 

SPECTRUM 48 K PAL -rél. hd 06 
1560 F 

SPECTRUM 48K PERITEL-rél. 

hd 07 - avec 10 logiciels 2 260 F 

SPECTRUM PLUS : réf. hd 09 - 10 
logiciels 2 460 F 

Mêmes caractéristiques que Spec¬ 
trum 48 K. Clavier QL - 17 touches 
supplémentaires facilitant l'accès di¬ 
rect aux fonctions. Boutons Reset. Li¬ 
vré avec cordons pour lecteur de cas¬ 
settes, câble Péritel, alim., notice en 
français, 1 programme de démonstra¬ 
tion. 


SPECTRUM DISC DRIVE. 


THE SPECTRUM CONNECTION. 

m 





LE TOUT EN UN 

Format 3,5" -178 K (ormaté - Inter. Centronics - Inter, poi¬ 
gnée de jeux - Bus d'extension - Alim. commune - Livré avec 
un logiciel de transfert de programmes sur disquette. 

Rél. hd 11 - 2950 F 


Clavier Spectrum + - hd 89 - 480 F 
Clavier Pro - hd 31 - 595 F 
Stylo lumineux - hd 47 - 385 F 
Synthétiseur paroles - hd 01 - 485 F 
Synthétiseur sons - hd 05 - 495 F 
Ampli de sons - hd 68 -160 F 
Mémoire 32K - hd 36 - 535 F 
inter Centronics - hd 34 - 537 F 
Inter Centronics et RS 232 - hd 90 - 
520 F 

Câble Centronics pour hd 90 - hu 51 - 
159 F 

Câble RS 232 pour hd 90 - hu 52 - 
159 F 


BON' DE COMMANDE A ENVOYER A LOGISOFT 
Vente par correspondance; en magasin, par téléphone. 

B.P. 2392-31086TOULOUSE CEDEX TéL(61) 21.49.55 

REF. 

QTE 

PRIX 


n 


VOTRE MICRO EN TOUTES LETTRES.. 

CATALOGUE LOGICIELS ET ACCESSOIRES 20 F 
remboursé à la première commande : 


Règlement 
Z . chèque bancaire 

c: ccp 

C! contre 

remboursement 


. Crédit : dossier 
par retour du 
courrier 


Participation aux 
frais d'envoi 
moins de 5 kg 


Nom : . 

Prénom :. 

Code postal :.Ville :. PRIX TOTAL 


Plus de 200 F 
d'achats 

Port recommandé 


GRATUIT 


GRATUIT 


Oulck shot II - hg 02 - 140 F 
Trackball « souns » - hg 03 - 350 F 
Manette jeux infra-rouge - hq 04 - 
395 F 

Inter manette + conn. an. - hg 04 - 
195 F 

Interf. poignée programmable - 
hg 07-400 F 

Infor poignée 2 standards - hg 05 - 
250 F 

Inter manette sans conn. an. - 
hg 10 -175 F 

Conn. souple d’intsrf. - hu 08 - 
145F 


TABLE 



MICRODRIVE_ 

Le MICRODRIVE dont le rapport ' 
qualité/ prix est meilleur qu 'un lecteur 
de disquette. Vous offre 85 K octets de 
capacité. 8 MICRODRIVES connecta¬ 
bles ensemble donnant 680 K. Vitesse 
de transfert : 16 K par seconde. Sortie 
RS 232. Communication entre 'spec¬ 
trum. 

Le Pack Microdrive avec 4 logiciels. 

Traitement de texte, Gestion fichier. 

Création jeux, Ant Attack. Réf. hd 28 - 
1 650 F. 

ZX Microdrive - réf hu 11 -870 F 
Interface ZX1 - réf hu 12-830 F 
Microdlsquelies - réf hu 13 - par 4 - . 

160F WHITE LIGHTNING _ 

Un fabuleux programme utilitaire qui, 
sans connaissance particulière du lan¬ 
gage machine, vous permet d'écrire 
facilement des logiciels profession¬ 
nels, originaux, rapides et de vous 
faire éditer sans payer les droits de 
Copyright qui sont laissés libres par 
les concepteurs de ce logiciel qui com¬ 
prend : 80 commandes supplémen¬ 
taires, 255 graphiques utilisateurs, 
fonctionnement de 2 programmes à ta 
fois, FORTH intégré, combinaison de 
FQRTH, BASIC, Langage Machine 
dans un rpême programme, 168 gra¬ 
phiques prédéfinis - Programme de 
démonstration. 

Spectrum 48 K - su 12 - 250 F 


L'endroit pratique et idéal pour installer 
voire matériel. 

3 éfagères, 2 supports latéraux rétracta¬ 
bles pour poser votre imprimante ou votre 
documentation. 

2 niveaux pour poser l’ordinateur et le 
téléviseur. Plaqué chêne naturel. Dimen¬ 
sions, avec supports latéraux ouverts : 
86,7 X 53,4 x 40 cm 
Chêne naturel : 
hd 78 1350 F 
Chêne clair : 
hd 94 1500 F 
‘Chêne foncé : 
hd 95 1500 F 


Assembleur/désassembleur 
pour une programmation aisée en 
langage machine. Editeur plein 
écran avec commandes de 
recherche et de remplacement et 
d'insertion de chaînes. Désas¬ 
sembleur de ROM et de RAM avec 
commandes. Tout ce que l’on 
peut attendre d'un Assembleur/ 
désassembleur. 

Rél. su 21 - 225 F 



CATALOGUE LOGICIELS ET ACCESSOIRES 


Revendeurs, 
nous consulter 


La rélérence en micro-informatique 

• 1 an de garantie totale 

• Frais expédition et réexpédition-inclus 

• Pas de Irais supplémentaire d’envoi à la commande pour moins de 5 kg 

• Recommandé gratuit à partir de 200 F d'achat 

• Crédit de 4 à 21 mois 

• Commandes téléphoniques 24 h sur 24 h 

• Service après-vente assuré 

• (61) 21.49.55 pour résoudre vos problèmes 




















ESSAI LOGICIEL 


Rotation dans l’espace 


Cet essai de représentation 3D de G. CLEMENT 
est assez réussi mais manque un peu de rapi¬ 
dité. Pour faire tourner le tétraèdre sur lui-même 
encore plus rapidement quelques suggestions : 


- utiliser les définitions de fonction DEF FN et 
FN; 

- conserver les données des traits et repasser 
dessus avec un OVER au dernier moment (pour 
chaque nouveau trait effacer un ancien) 

- surtout pas de CLS.Ciao ! 




S REH ** TETRAEDRE •** 

© G . CLfcMcNT 

10 LET R =30: !_ET S =90: LET H = 1 
20 LET K =0 : BIH H(1,105): DIM 
N (1,105) 

30 FOR fl =0 TO 10SPÏ/3 STEP ,1 
4-0 LET K=K + 1 

50 LET M=70+50*CÜS H: LEi N=SQ 
R (60*60*(1-C05 fl*CO5 .fl)) 

60 TF fl>=PI TMEN LET N=-N 
70 LET M ( 1,K) =M : LET Nfl,K)=N 
100 N EXT fi 

110 FOR 1=42 TO 63: LET J=1-20: 
LET L=I-41: LET X=H(1,ü)-M(1, I) 

: LET ¥=N(1,J)-N(1,1) 

112 LET Z =M ( 1 ,L)-M 1 1 , J ) : LET T = 
N (1,L) -N (1,.J) 


114 LET U=M(1,I)-M(1,L): LET U= 
N (1,1) -N( 1, L ) 

120 CL5 : PLOT R,S: DRAW M(l,Z) 

,N(1,1) 

125 DRAW X,Y 

130 PLOT R , S : BRflU Md, ü ! , N i 1, ü 

'i 

135 BRflU Z,T 

140 PLOT P., 5 : BRflU M d , L) , N (1, L 
’ 145 BRflU U ,U 

146 GO sue 150: PAUSE H: NEXT I 
: GO TO 110 

150 IF INKEY5="" THEN PAUSE H: 
NEXT I: GO TO 110 
150 LET H=2*üfiL INKEY$: RETURN 


G. CLEMENT 


QSO de fechnicai Software 


Nous ne surprendrons certainement personne en affirmant qu’aujourd’hui 
encore, c’est de Grande-Bretagne que proviennent les meilleurs logiciels 
pour machines Sinclair. C’est à l’ombre du fier château des Princes de 
Galles que nous avons débusqué le petit trésor que nous vous présentons 
ici. 

Rassurez-vous, il est possible de se procurer cassette et notice par 
correspondance (mandat international). 


Mordez au Morse avec CW-QSO 


Parmi les loisirs techniques auxquels l'informati¬ 
que peut donner une nouvelle'dimension, le 
radio-amateurisme semble tout.particulièrement 
bien placé : l’ordinateur peut se charger de la 
plupart des tâches « administratives » entourant 
les échanges de messages, et surtout faciliter 
considérablement la mise en œuvre de procédés 
de transmission spéciaux. Parmi ceux-ci, nous 


. citerons pour mémoire les liaisons par téléimpri- 
:; meur (RTTY), la transmission d’images (SSTV et 
: fac-similé), et bien évidemment le MORSE. 

Bien que fort ancien, le MORSE est toujours très 
'employé en raison d’avantages particuliers, no¬ 
tamment lorsque les conditions de réception ne 
sont pas bonnes. 

Une épreuve de « graphie » figure d’ailleurs au 
programme des principaux examens d’attribu¬ 
tion de « licences » d'amateur. Les radio¬ 
amateurs • disposant de micro-ordinateurs ont 
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très tôt cherché à mettre au point des méthodes 
permettant l’émission automatique de messages 
MORSE à partir d’une simple frappe au clavier 
(c’est facile !), et d’afficher en clair sur l’écran le 
texte correspondant aux signaux reçus (c’est 
considérablement plus difficile !) 

Le logiciel « CW-QSO «fait tout cela.sur Spec- 
trum, et bien plus encore... 


Hardware or no Hardware, that is the 
question I 


La plupart des systèmes permettant la réception 
automatique de signaux MORSE font appel à un 
coûteux boîtier d’interface placé entre l'ordina¬ 
teur et le récepteur, soit au bas mot une dépen¬ 
se de 600 à 1 000 F et plus. 

L’originalité majeure du programme « CW- 
QSO » est que le circuit d’interface pour le Spec- 
trum se limite à une simple résistance de 
8,2 ohms (fournie !), et d’ailleurs souvent facul¬ 
tative : son principal avantage est de permettre, 
dans la publicité, de parler dé « cassette plus 
kit », et de justifier ainsi un prix de vente légère¬ 
ment « gonflé »... 

Quoi qu’il en soit, avec un prix'd’environ 130 F 
rendu en France, l’acheteur en a largement pour 
son argent. 

La fiabilité sur signaux faibles, ou brouillés n'at¬ 
teint évidemment pas celle d’un circuit d’interfa¬ 
ce bourré de filtres et.de« triggers », mais reste 
fort convenable pour l’usage qui nous- semble 
être celui de cette cassette. 

En effet, il nous semble que'.ce n’est pas parmi 
les radio-amateurs chevronnés qu’il faut .cher¬ 
cher les futurs utilisateurs de cette cassette. 
Ceux-ci savent en effet fort bien décoder le 
MORSE « à l’oreille » et ne s’en priventpas. 

« GW-QSO » rendra par contre les plus grands 
services à l’auditeur non-initié qui, parcourant 
les ondes courtes ou les bandes « marine », doit 
renoncer à comprendre quoi que ce soit à toutes 
ces avalanches de points et de traits. 


Nous faisons partie de cette catégorie d’audi¬ 
teurs à l’oreille paresseuse, et avons été d’au¬ 
tant plus émerveillé de pouvoir lire sur notre 
écran vidéo des « télégrammes » dont nous 
étions loin de soupçonner la variété du contenu ! 


Petit banc d’essai : 


Le chargement du logiciel est extrêmement rapi¬ 
de (quelques dizaines de secondes), car il s’agit 
évidememnt de langage machine. Le lancement 
est automatique et empêche bien sûr tout lista¬ 
ge et toute sauvegarde. 

Si l’on souhaite s’assurer une copie « de précau¬ 
tion », la qualité de l’enregistrement permet sans 
problème une simple duplication de magnéto- 
phone.à magnétophone. 

Nous avons très vite renoncé au décodage « en 
temps réel » des signaux reçus, au profit d’un 
enregistrement pour exploitation ultérieure. En 
effet, le réglage du niveau est assez critique (sty¬ 
le ZX 81 !) et gagne à être fignolé par essais suc¬ 
cessifs. 

Si les signaux sont très clairs, le décodage est 
immédiat,' avec adaptation automatique à 
d’éventuelle variations de la vitesse de manipu¬ 
lation. 

Un SCROLL est automatiquement effectué dès 
que le .tiers de l’écran est plein, car. les deux au¬ 
tres tiers servent à l’émission. 

On pourra regretter que la recopie sur impriman¬ 
te .ne soit pas possible, mais .la lenteur de la 
'transmission MORSE permet largement une co¬ 
pie manuelle au.fur et à mesure. 

On n’espèrera pas obtenir de bons résultats sur 
-des signaux noyés dans le bruit (qu’un opérateur 
habile peut, lui, décoder à l’oreille), pas plus 
. qu’en présence d’un récepteur inadapté. 

Il .faut que.le récepteur soit prévu pour la récep- 
. tion MORSE (CW), ou au moins BLU (SSB). A 
défaut,'les émissions à porteuse pure ne seraient 
pas reçues, sauf artifice du seul ressort d’un bon 
bricoleur radio. 

Mais si vous possédez à la fois un bon récepteur 
« de trafic » et un Spectrum, alors n’hésitez plus, 
ce logiciel est fait pour vous ! 


Renseignements pratiques : 

Ce logiciel a été mis au point par un radio-amateur anglais, CW3 RRI (Richard Wilmot), et 
peut être commandé en Grande-Bretagne à : 

TECHNICAL SOFTWARE 
FRON 

UPPER LLANDWROG 
CAERNARFON 
GWYNEDD LL54 7RF 

Le prix de vente valable au 31 décembre 1984 est de 11 livres, port compris pour la France. 
■Demandez confirmation si vous passez commande longtemps après cette date. 

Si vous souhaitez vous .renseigner par téléphone, il faut composer le 19 (44) 286.881.886. 


:*:*:*: Patrick GUEULLE 
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EDUCATION 


L'enfant et l'ordinateur 


L’écriture d’un programme éducatif est un exercice assez gratifiant : les 
enfants « sautent dessus ». Puis vient la lassitude : en effet, une fois 
découvertes les possibilités simples, l’inspiration manque et le travail 
semble plus délicat... on ne sait plus très bien ce qu’on peut faire. 

En fait, il faut une certaine expérience pour écrire des didacticiels 
efficaces qui présentent de véritables qualités d’éveil et dont les limites 
ne soient pas atteintes trop vite. 


L’ordinateur au C.M.P.P. 

Un C.M.P.P. (Centre Médico-Psycho-Pédagogi¬ 
que) reçoit des enfants dont les difficultés por¬ 
tent souvent sur l'acquisition du langage, avec 
des retards de parole, des problèmes de lecture 
et d'écriture, (incapacité à intégrer l'orthogra¬ 
phe et ses règles notamment). Fréquemment, 
ces enfants ont connu une longue série 
d’échecs et ont « subi » des aides parfois aussi 
maladroites que bien intentionnées. 

L’action des éducateurs d'un C.N.P.P. consiste 
donc d’abord à rompre avec l'expérience de 
l’échec, en se démarquant des méthodes tradi¬ 
tionnelles si nécessaire; mais il doit aussi re¬ 
chercher si la difficulté'ou l’échec ne sont pas 
inscrits dans la personnalité de l’enfant. 

En 1981, nous nous sommes dits: « L’ordina¬ 
teur, c’est nouveau, et ce peut-être l’occasion 
de réaliser une rupture » et nous nous sommes 
munis d’un système Spectrum. Après avoir es¬ 
sayé quelques programmes du style « conjugai¬ 
son française » ou « pluriel des noms et des ad¬ 
jectifs », nous nous sommes rendus compte 
qu’ils ne convenaient pas : en effet, dans notre 
Centre, un rééducateur est toujours en tête-à- 
tête avec l’enfant et de toute évidence,, il est 
bien plus habile et sympathique que l’ordinateur 
pour réaliser et expliquer de tels exercices. Il fal¬ 
lait changer notre conception du « logiciel édu¬ 
catif ». 


Les qualités d’un logiciel éducatif 

Un logiciel éducatif doit développer simultané¬ 
ment plusieurs potentialités ; à l’issue de notre 
expérience, les dix plus importantes nous pa¬ 
raissent être : 

- L’apprentissage de la programmation ; car 
l’algorithmique est généralement considérée 
comme une discipline intellectuelle structu¬ 
rante ; 

- Les aspects bureautiques : traitements de 
texte surtout, bloc-note, tableau noir électroni¬ 
que ; 

- La gestion par l’enseignant, et pour l’ensei¬ 
gnant, des réponses données par ses élèves 
pour situer le niveau de la classe ou d’un groupe 
d’élèves ; 



- L’entraînement sensoriel : l’ordinateur permet 
de graduer le niveau et l’intensité d’un stimulus 
(par exemple, la durée d’exposition d’un mes¬ 
sage) et d’entraîner l’enfant à donner des ré¬ 
ponses de plus en plus, rapides ; 

- La'suppléance d’une fonction défaillante par 
une fonction saine. Par exemple, la visualisation 
d'un rythme permet de soutenir par la vue le 
sens auditif du rythme défaillant chez un enfant ; 

- La simulation : l’ordinateur permet de doser la 
part de parasites que l’on souhaite introduire 
dans l'appréciation d'un phénomène dont on 
cherche à faire découvrir les traits pertinents ; 

- Le cache-enseignement : l’ordinateur peut : 
dissimuler la fonction d’enseignement par deux 
moyens : 

• l’entraînement sensoriel ou moteur (il faut al¬ 
ler vite. On croit que ce sont les « réflexes » qui 
sont à l’œuvre, mais en fait, on apprend à lire) ; 

• le jeu : 

- Le contrôle des connaissances sous la forme 
de : 

• questions à choix multiples (aussi simples que 
lassantes) ; 

• questions dépendant de la qualité des ré¬ 
ponses antérieures ; 

- La constitution de fichiers ; 

- L’enseignement tutoriel : l’ordinateur a pour 
fonction de transmettre le savoir, l’enseignant 
étant appelé quand « ça coince ». 
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Les catégories de programmes 
éducatifs les plus efficaces 


Les programmes qui passent le mieux se re¬ 
groupent autour de différents thèmes : 

- Traitement de texte transformant l’ordinateur 
en machine à écrire perfectionnée, mais encore 
simple d'emploi avec, en particulier, les minus¬ 
cules accentuées, ou bien la possibilité (pour les 
plus jeunes) d’afficher, puis d’imprimer en lettre 
géantes. 

- Jeux de style du « pendu », variés et amé¬ 
liorés, qui consistants à découvrir des mots en 
proposant des lettres successives. 

- Jeux de vocabulaire et d’orthographe en utili¬ 
sant l’Imagier dû Père Castor : l’enfant doit re¬ 
connaître une image et orthographier le nom de 
l’objet qui s'y trouve (il existe un système 
d’aide). 

- Jeux-exercices de lecture rapide suivis de re¬ 
copie par l’enfant du mot lu et d'une édition sur 
imprimante. 

- Visualisation d’expériences mathématiques 
(addition, soustraction, multiplication). 

- Programme du style « sauterelle » ou « tor¬ 
tue » ; ou il faut programmer les déplacements 
d’un mobile sur l’écran avec possibilité de nom¬ 
mer des sous-programmes. 

- Programme classique des départements fran¬ 
çais (en HRG). 

- Des utilitaires : traitement de fichiers qui ali¬ 
mentent les différents autres programmes et édi¬ 
teurs d'écran. 

Dans ces programmes, il faut faire en sorte que 
dans tous les cas d’utilisation, l’enfant obtienne 
un résultat positif, en graduant l’aide fournie par 
le logiciel, et qu’il conserve une trace de sa réali¬ 
sation. Mais c’est toujours l'adulte qui explique 
le jeu, oriente le choix des vitesses, des fichiers 
(qu’il a créés) et explique les réponses de l’ordi¬ 


1 LET n br e =10 : RRNDOMIZE PEEK 
23672: GO TO 1000 
100 N EXT a 

200 GO SUS 500: GO SUB 500 

210 LET ». $ = INKEï'$: IF ».$ = "" THE 
N GO TO 210 

211 BEEP ,03., 40 

215 IF CODE ». $ > 15 4 H ND CUD E ». $ < 
199 OR CODE ». $>201 THEN GO TO 21 
0 

216 IF CODE t $ <20 THEN 60 SUE 2 
19 

217 IF CODE t $ >31 THEN GO SUE 3 
00 

21S FOR S =1 TO INT (<160-t)/32) 

: NEXT S: GO TO 210 
220 IF t. $=CHR$ S THEN IF X >32 T 
HEN LET X =x-1 

230 IF t$=CHR$ 10 THEN IF X+32 < 
t THEN LET X=X+32 
240 IF t $ =CHR$ 11 THEN IF x-32> 
31 THEN LET x=x-32 
250 IF t$=CHR$ 9 THEN IF X < ». TH 
EN LET X=X+1 

260 IF ». $=CHR$ 12 THEN GO SUE 4 
00 

280 IF ». $=CHR$ 13 THEN GO TO 12 
05 

290 GO SUE 600: GO SUE 500: PET 
URN 

300 IF ». $ !• = " a " fi N B ». $<:=“Z" THEN 
LET ». $=CHR$ (CODE ». $-32) 

310 GO SUE 700: RETURN 
400 IF LEN h$>32 RND X>32 THEN 
LET K $ = j $ + K $ ; LET ».=».-!: LET X =X 
-1: GO SUE 600: GO SUE 500: GO T 
0 210 

500 PRINT fiT 9,0: ,i $ : FLfiSH l;o$ 
•; FLfiSH 0; k$ 

515 RETURN 

600 LET t=LEN h$: LET J $=h$(1 T 
0 X-l) : LET 0$=h$ (X TO X): LET c. 
$ =h $ (X +1 TO t) : LET h$ = j$ + 0$ + K$ 
610 RETURN 

700 IF ». <160 THEN LET j$ = j$ + 0$: 


nateur lorsque l’enfant n'a pas compris : l’enfant 
peut donc toujours faire appel à l’adulte, qui a la 
possibilité, de s’éloigner pour laisser l’enfant 
s’amuser ou se débrouiller. 


Un exemple de programme 

Afin d’illustrer notre propos, nous vous livrons 
un listage de programme inédit qui a tenu 
compte le mieux, possible des données rappe¬ 
lées ci-dessus. Son scénario est le suivant : 

- L’ordinateur tire au hasard 3 lettres qui se sui¬ 
vent dans un mot (choisi au hasard parmi les 
DATA : à vous de les compléter). 

- Il demande à l’enfant de trouver un mot qui 
contienne ces 3 lettres à la file. Si l’enfant en 
propose un, le programme vérifie que les 3 let¬ 
tres sont bien présentes dans le mot proposé. Si 
l’enfant n’a pas d’idée, il lui suffit d’introduire 
« ? » pour que l’ordinateur affiche le mot qu’il 
connaît. 

- Ensuite le programme propose à l’enfant 
d’écrire une phrase qui contienne le mot décou¬ 
vert ou livré par le programme. 

- Si l'enfant accepte de rédiger une phrase, il 
dispose d’un petit traitement de texte : 

e il suffit d’introduire une lettre pour qu’elle 
s’inscrive à droite du curseur et devienne cur¬ 
seur en frappe kilométrique), 

« on efface avec CAPS SHIFT + 0 
• on se déplace dans le texte avec CAPS SHIFT 
+ 5, 6, 7 ou 8, 
o on valide par « ENTER ». 

- Il y a ensuite une demande de confirmation. 

- L'ordinateur vérifie que le mot proposé se 
trouve bien dans la phrase. 

- Après validation, un sous-programme très 
simple introduit les blancs nécessaires afin que 
les mots ne soient pas coupés en fin de ligne. 

- Vient enfin une édition sur imprimante. 


LET 0 $ = ».$: GO SUE 500: LET h$ = J 
$ + 0 $ + K$: LET X=X + 1: LET ».=». + ! 

715 RETURN 
•—> 0 0 t - U R 5 “ 1 Tu ■ 2 
810 IF h $(Z-a) =" " THEN LET nid 
=a: RETURN 
320 NEXT a : RETURN 
900 FOR a =1 TO LEN h $- ! LEN b$-l 

» 

910 IF h$la TO (a-D+LEN b$)=b$ 
THEN LET nid=a: RETURN 
920 NEXT a : LET nid =0 : RETURN 
950 FOR a =0 TO 21: PRINT HT a,0 
;q$;: N EXT a: PRINT « 0.1 RT 1,0; q$ 

; : RETURN 

990 GO SUE 950: SEEP ,1,20: PRI 
NT fiT 10,1@; "fiU REVOIR": STOP jS 

1000 PfiPER 1: INK 7: BORDER 1: C 
LS : LET q$="^ 

1001 DIM a$ (nbre,10) : FOR a=i TO 
nbre: REfiD a $ (a » : NEXT a 

1002 BEEP ,1,20: CL5 : PRINT fiT 
0,9;"VOCABULAIRE" 

1004 LET h a S = 1 + INT (RND#nbre): L 
ET o$=a$ (has) 

1005 FOR Z =LEN 0$ TO 1 STEP -1 

1006 IF 0 $ (Z ! <>" " THEN LET 0$=0 
$t TO Z) : GO TO 1008 

1007 NEXT Z 

1008 LET h a S =1 + INT (RND*ÎLEN 0$- 
2) ) : L ET b $ =0 $ ( h a B TO h 3 a + 2 ) 

1010 PRINT RT 8,2;"ECRIS UN MOT 
OUI CONTIENNE:";AT 11,13; INVERS . 

E l; b$ 

1015 INPUT " TON MOT: ";h$ 

1016 IF h $ = "'?'?" THEN LET b$=0$: 

GO TO 1050 

1017 IF LEN h $ < 3 OR LEN h$>15 TH 
EN GO TO 1015 

1018 FOR a =1 TO LEN h$ 

1019.IF h$ia)<"fi" OR h$(a)>”z" 0 
R h $ (a ) > "Z" AND h $ ta ) •( "a 11 THEN 6 
0 TO 1015 

1021 LET ».$ = "": FOR a=l TO LEN h 
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$ 

1022 IF h$!a) :■="*" THEN LET t$ = t 
S+CHR $ i CODE h $ il a ) -32 ) 

1023 NEXT a: LET h$=t$ 

102E G'0 SUR R00 

1030 IF ri i d =0 THEN BEEP .3,0: PR 
INT RT 15., INT ( (30-LEN h$)/2); I 
NU ERSE 1h $ ; INUERSE 0;AT 17,6:" 
NE CONTIENT PRS "; PT 20,13; INVE 
RSE l.;b$: PAUSE 150: BEEP .05,20 
: PR INT 80; AT 1,3; INUERSE 0;"PP 
PUIE SUR UNE TOUCHE "j FLPSH 1;" 
<=": F'RUSE 0: FOR a =1 TO 6: PR IN 
T HT 14+a,0;q$;: NEXT a: GO TO 1 
015 

104-0 BEEP .3,30: PRINT RT 15,0;" 
C - EST BIEN : " .; RT 17,14--n i d ; INUER 
SE 1 ; h $ ; RT 19,6; INUERSE 0 ; "DONT 
IENT EN EFFET";RT 21,13; INVERSE 
1; b$ 

1045 PAUSE 150: PRINT #0 ; HT 1,3; 
"APPUIE SUR UNE TOUCHE “; FLASH 
l;"<=“: PAUSE 0: LET b$=h$ 

1050 BEEP .05,20: GO SUE 950: PR 
INT RT 10,0; "QUE UEUX-TU: "; AT 12 
,0;"1.ECRIRE UNE PHRRSE AVEC";AT 
14,17; INUERSE l;b$; INUERSE 0; 
RT 16,0;“2.CHERCHER UN AUTRE MOT 
" ; AT 18,0; "3.ARRETER"; RT 20,5; "N 
UMERO DE TON CHOIX "; FLASH 1;“? 

1060 LET C$ = INKEY$: IF C $<;"!" OR 
C$>"3" THEN GO TO 1060 
1062 BEEP .1,20 

1065 GO SUE 950: IF C$="2“ THEN 
GO TO 1002 

1070 IF C $ = "3" THEN GO TO 990 
1200 PRINT RT 6,0;"ECRIS ICI Tfi 
PHRASE AVEC";AT 8,3;b$: LET h$=q 
$: LET X =32 : GO TO 200 


1205 IF LEN h$<32+LEN b$ THEN 60 
TO 200 

1206 GO SUE 900 

1207 PRINT AT 9,0;hÿ;: IF nid=0 
THEN BEEP .1,8: PRINT #0 ; AT 1,0; 
"LE MOT N"EST PAS DANS LR PHRASE 
": PAUSE 250: PRINT #0 ; AT 1,0;q$ 
.; : GO TO 200 

1208 BEEP .1,20 

1210 PRINT 80; AT 1,0; "EST-CE COR 
RECT "; FLASH 1; 

1211 LET C$=INKEY$ 

1212 IF c $ = "n" OR C $ = "N" THEN PR 
INT 80;AT 1,8 ;q $ ; : GO TO 200 

1213 IF C$ ="0" OR C$ = "0" THEN GO 
TO 1215 

1214 GO TO 1211 

1220 FOR 1=32 TO LEN h S STEP 32 
1230 IF h $ (Z) < >" " AND h $ ( Z +1} O 
" " THEN GO SUE 300: LET t$=h$( 
TO Z-nid)+q $( TO nid) : LET 0 $ =h $ 
iZ+l-nid TO ): LET h$=t$+ 0 $: GO 
TO 1220 
1250 NEXT Z 
1260 PRINT AT 9,0;h $ 

1280 LET h $=h $ (33 TO ): LPRINT h 
$ 

1350 PRINT #0 ; RT 1,0;"UN AUTRE M 
OT (0/N) "J FLASH 1;"?"; 

1360 LET C$ = INKEY$: IF C$="0" OR 
C$="0" THEN GO SUE 950: GO TO 1 
002 

1370 IF C $ = "n" OR e$="N" THEN GO 
TO 990 ' 

1380 GO TO 1380 

9900 DATA "CHEVAL","REGARDER","J 
OUER","PLEURER”,"DORMIR","MANGER 
","CHANTER","FREMIR","FONDRE" , "D 
ESIREP." 


Denis Krieger 


QL musique ! 


Un jeu simple pour se divertir et aussi pour illustrer comment faire de la 
musique en Superbasic avec l’instruction BEEP ; cette dernière peut être 
utilisée avec seulement 2 paramètres : le premier précise la durée 
(nombre de fois microsecondes), le second le ton (le Do = env. 33). 

La gamme est définie à la ligne 20070 : 

33, 28, 24, 22,18,15,12,11 

Au début de la partie, la règle du jeu est présentée sur l’écran, avec un 
petit air de musique... 
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IBB REMark DOREMI 


FEV 1985 FREDERIC HUYNH 
110 OPEN «4,scr_:WIND0W «4,442,200,3B,16 
120 PAPER «1,0:PAPER «2,0:CLS:CLS «0 
130 start 

140 RES70RE :CLS 
150 initialisation 

160 CS1ZE «0,3,1 
170 octave 

180 PAUSE 100: écouté 

190 PAUSE 100:CLS «0: hasard 

200 entree 

210 CLS «0:compare 

220 fin 

230 IF ans=l THEN PAUSE 10:PAUSE 10:PAUSE 10:RUN 
240 ELSE STOP 
250 END IF 

20000 DEFine PROCedure initialisation 
20010 RANDOMISE 

20020 DIM a(9): DIM b(9):DIM résulta<9>: DIM h<9>:r=l:bon=0 
20030 col=—30 
20040 FOR i=l TO 8 
20050 READ a <i),b <i) 

20060 END FOR i 

20070 DATA 33,90,28,80,24,70,22,60,18,50,15,40,12,30,11,20 
20080 RETurn 

20090 DEFine PROCedure octave 

20100 AT «0,1,0:PRINT «0;" Ecoutez la gamme complété'' 

20110 x=20 

20120 FOR i=l TO B 

20130 BLOCK 30, b ( i > , x , 100—b(i),i:x =x +50 
20140 BEEP 10000,a(i>: PAUSE 20 
20150 END FOR i 
20160 RETurn 

20170 DEFine PROCedure écouté 

20180 AT «0,1,0:PRINT «0;" Ecoutez une fois encore " 

20190 FOR i=1 TO B 

20200 BEEP 10000,a(i):PAUSE 20 

20210 END FOR i 

20220 RETurn 

20230 DEFine PROCedure hasard 

20240 AT «0,1,0:PRINT «0;" Ecoutez la partition 

20250 FOR i=1 TO 8 

20260 h <i)=INT <RND(1 TO B)> 

20270 BEEP 10000,a <h(i)>:FOR z = l TO 200:NEXT z 
20280 END FOR i 

20290 PAUSE 100:AT «0,1,0:PRINT «0;" Derniere audition ! 

20300 FOR i=l TO 8 

20310 BEEP 10000,a(h(i)): FOR z=l TO 200:NEXT z 
20320 END FOR i 
20330 RETurn 

20340 DEFine PROCedure entree 

20350 INK «0,3:AT «0,1,0:PRINT «0;" Entrez votre solution " 
: INK «0,7 
20360 y=20 

20370 BLOCK 30,5,y,100,2 

20380 IF KEYROW(1> =i6 AND y<370 THEN y=y+50:BLOCK 30,5,y-50, 
100,0:BLOCK 30,5,y,100,2 

20390 IF KEYROW{1> =2 AND y>20 THEN y=y-50:BLOCK 30,5,y+50,10 
0,0:BLOCK 30,5,y,100,2 

20400 IF KEYROW <1)=8 THEN CLS:CLS «0:STOP 

20410 IF KEYROW< 1 ) =1 THEN FOR zz=l TO 50:NEXT zzsGO TO 20430 

20420 GD TO 20380 

20430 note=((y—20)/50I+1 

20440 col=cal+50 

20990 INK «4,3:CSIZE «4,3,1:AT «4,3,10:PRINT «4;"DO-RE-MI":C 
SIZE «4,2,0:INK «4,4 

21000 INK «4,6:FLASH «4,i:AT «4,18,11:PRINT «4;“PRESSEZ <ENT 
ER>": INK «4,4:FLASH «4,0 

21010 IF KEYROW{1)=1 THEN PAUSE 10:PAUSE 10:RETurn 

21020 IF KEYROW(7)=4 THEN GO TO 20900 

21030 IF KEYROW(1)=8 THEN CLS:STOP 

21040 GO TO 21010 

21050 RETurn 

21060 DEFine PROCedure music 
21070 RESTORE 21130 
21000 FOR i=i TO 64 

21090 INK «4,i:CSIZE «4,3,1:AT «4,3 ,IOïPRINT «4;"DD-RE-MI":C 
SIZE «4,2,0 

21100 READ n,t:BEEP t+5000,n:PAUSE 7*(t/1000> 

21110 END FOR i 
21120 : 

21130 DATA 33,3000,2B,1000,24,3000,33,1000,24,2000,33,2000,2 
4,4000,28,3000,24,1000,22,1000,22,1000,24,1000,2B,1000,22,50 
00 

21140 DATA 24,3000,22,1000,18,3000,24,1000,18,2000,24,2000,1 

8.4000.22.3000.18.1000.15.1000.15.1000.18.1000.22.1000.15.50 
00 

21150 DATA 18,3000,33,1000,28,1000,24,1000,22,1000,18,1000,1 
5,5000,15,3000,28,1000,24,1000,20,1000,IB,1000,15,1000,12,50 
00 

21160 DATA 12,3000,24,1000,20,1000,17,1000,15,1000,12,1000,1 

1.5000.12.1000.14.1000.15.2000.22.2000.12.2000.18.2000.11.50 
00 

21170 DATA 33,1000,2B,1000,24,1000,22,1000,18,1000,15,1000,1 

2,1000,11,1000 

21180 RETurn 

21190 END DEFine 

21200 STOP 


DOREMI 



20450 resulta(r)=note:r=r+l 

20460 BLOCK 30,b(note),col,200-b(note).note 
20470 BEEP 10000,a(note) 

20480 IF col>=370 THEN RETurn 
20490 GO TO 20380 
20500 RETurn 

20510 DEFine PROCedure compare 
20520 PAUSE 100:PAUSE 10 

20530 INK «0,2:AT «0,1,0:PRINT «0;" Voici les résultats" 

20540 PAUSE 150 

20550 y=20 

20560 SCRDLL -105 

20570 INK «0,1:AT «0,1,0:PRINT «0;” Votre partition 

20580 FOR i=l TO 8 

20590 BEEP 10000,a(résulta(i)):PAU5E 20 
20600 END FOR i 
20610 PAUSE 100 
20620 CLS «0 

20630 INK «0,4:AT «0,1,0:PRINT «0;“ Et celle de 1'ordinateu 
r " 

20640 FOR i=l TO 8 

20650 BLOCK 30,b(h(i)),y,200-b(h(i)>,h(i> 

20660 BEEP 10000,a(h(i)): PAUSE 20 
20670 y=y+50 

20680 IF resulta(i)=h(i> THEN bon=bon+l 
20690 END FOR i 
20700-RETurn ■ . 

20710 DEFine PROCedure fin 
20720 PAUSE 100 

20730 INK «0,7: AT «0,1,0:PRINT «0;" Résultats du test 

20740 PAUSE 100 
20750 couic(5) 

20760 FLASH «0,1:AT «0,1,0:PRINT «0;"Nombre de bonnes répons 
es PAUSE 100: couic(5): FLASH «0,0 

20770 AT «0,1,0:PRINT «0;" "}bon:PAUSE 100: 

couic(5) 

20780 AT «0,1,0:PRINT «0;" Desirez vous rejouer ?":PAUSE 50 
: couic(-5) 

20790 FLASH «0,1:AT «0,1,0:PRINT «0;" Repondez par O ou N 
":FLASH «0,0 

20800 IF KEYROW(5)=128 THEN ans=l:GO TO 20830 
20810 IF KEYROW(7)=64 THEN ans=0:GO TO 20830 
20820 GO TO 20800 
20830 couic(-5) 

20840 RETurn 

20850 DEFine PROCedure couic(v) 

20B60 FOR i=l TO 120 
20B70 PAN «0,v:END FOR i 
20880 RETurn 

20890 DEFine PROCedure start 
20900 CLS:CLS «4 
20910 BORDER «4,3,1,4 
20920 CLS «4 

20930 INK «4,2:AT «4,0,11:PRINT «4;"FREDERIC HUYNH" 

20940 INK «4,1:AT «4,3,14:PRINT «4;"PRESENTE" 

20950 INK «4,3:CSIZE «4,3,1:AT «4,3,10:PRINT «4;"DO-RE—MI":C 
SIZE «4,2,0:INK «4,4 

20960 AT «4,10,0:PRINT «4;" Le principe de ce programme est 
simple : vous entenderez une suite de notes;il s'agira ens 
uite de les retrouver." 

20970 AT «4,14,0:PRINT «4;" Utilisez les touches du curseur 
pour choisir votre note puis pressez <ENTER> pour 1’enregi 
strer." 

20980 music 


x-x-x-x Frédéric Huynh 
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SUPERBASIC QL 


QL montagnes J 


t 



Entrée fracassante du QL dans 
ORDI-5 : dessinez des 
« montagnes » à partir de courbes 
« fractales ». Ce programme fait 
appel aux procédures récursives : 
une facilité de Superbasic. En 
outre, il montre assez bien la 
palette de couleurs (simples et 
composées) qu’on peut obtenir sur 
l’écran d’un moniteur ou d’un 
téléviseur. 


Le principe est simple : il consiste à répéter l’ap¬ 
plication d’une règle élémentaire : on détermine 
le milieu de chaque côté d'un triangle les trois 
points obtenus sont déplacés pour définir ainsi 
les sommets de trois nouveaux triangles admet¬ 
tant comme base les côtés du triangle initial et 
ainsi de suite (comme toute définition récurren¬ 
te). ■ 



100 REMark *** montagne *** 

110 MODE 0 :REMark mode 8 si tele. 

120 WINDOW iU ,512,256,0,0 
130 PAPER 0:INK 4 
140 REPeat une montagne 
CLS 

PRINT "hasard (entre 0 et .8):'*; 

INPUT h 

PRINT "minimun (entre 10 et 30):"; 

INPUT min 
CLS:s=0 

mont 10,20,130,22,60,70 
PRINT "termine";:c*=INKEY$(-l> 

230 END REPeat une_montagne 

1000 REMark **** procedure mont ***** 

1010 DEFine PROCedure mont (x1,yi,x2,y2,x3,y3) 

- LQCal x12,y12,x23,y23,x31,y31 

LQCal t1,t2,t3 

' tl=SQRT <<x2-xl>~2 +<y2-ylî^2) 
t2=SQRT <<x2-x3)^2 +<y2-y3> A 2> 
t3=SQRT <(«3—xl>~2 +<y3-yl>~2) 

IF taille < min THEN 
s=(s+l) MOD 8 
• FILL 1:INK yl/15 +l,s 
LINE xi,yl TD x2,y2 
LINE TO >:3,y3 TO xl,yl 
FILL 0 
ELSE 

1=ABS(x1—x2) 
xl2=(x2+xl)/2 + 
l=ABS(yl-y2> 
yl2=(y2+yl)/2+t 
1 =ABS(jj2-x3> 

X23=(x3+x2)/2+ t2 * alea(l) 
l=ABS(y2-y3> 

1—y23= <y2+y3)/2 + t2 * alea(l) 

1=ABS(x3-x1) 

x31=(xl+x3)/2 + t3 * aléa (1) 

1=ABS(y3-y1) 

y31=(yly3)/2 + t3 * aléa (1) 
mont x1,yl,x12,yl2,x31,y31 
mont xl2,yl2,x2,y2,x23,y23 
mont x23,y23,x31,y3i,xl2,yl2 
mont x23,y23,x3,y3,x31,y31 
END IF 

1310 END DEFine mont 
2000 REMark *** -fct taille *** 

2010 DEFine FuNction taille 

2020 LQCal t 
t=tl 

IF t2>t THEN t=t2 
IF t3>t THEN t=t3 
RETurn t 

2070 END DEFine taille 
3000 REMark ** gene aléa x *** 

3010 DEFine FuNction aléa (w) 

3020 LOCal r 

3030 r=SQRT <20+w)^3 
3040 r= (»—INT (r> ) 

3050 RETurn <h*(r-.2)) 

3060 END DEFine aléa 


F R A C T A L 


* alea(l) 


a(l) 




Pierre Marty 


24 - ORDI-5 n° 12 mai 1985 






Côté court 


L’étoile des rois mages 


Les régates de San Francisco 


Elle arrive un peu tard mais on la voit bien venir 


a 

LET 3=6® 



il 

FOR fi=l TO 109 


25 

PLOT 0,0: 

DRfiU 

fl,S 

26 

PLOT 0,0: 

DRfiU 

S,R 

30 

NEXT fi 



40 

LET S=S+S. 

FOR 

fi = 109 TO 109 

+ 109 

GO TO 25 





>!v!*!v!v!‘!v!v!vXv*'X%v! 


J.-Y. FEVRIER 



Côté 

Cour < 

10 

DfiTfi 

20 

DATA 

30 

DfiTfi 

4-0 

DfiTfi 

50 

DfiTfi 

60 

DAT R 

70 

DfiTfi 

80 

DfiTfi i 

90 

DfiTfi i 

100 

REfiD : 

110 

FOR X 

120 

PLOT 1 

130 

DRfiU : 

1)+X*(S=0J 

160 

NEXT ; 

170 

DRfiU 

180 

DRfiU ; 

210 

GO TO 


fi STEP fi 


-2*fl* CS = 1) , -2*fi* CS=0) 



X. LINANT 



5 RRNDOMIZE 
10 DflTR 10,200,120,30 
100 REfiD R,B,C,D 

105 1_ET H=RND+.2: LET U=RND+.2 

110 FOR X=-R TO fi STEP fi 

120 PLOT B*H,C*Ü 

130 DRfiU X,-D 

160 NEXT X 

170 DRfiU -2.2*fl,0 

180 DRfiU 2.4.*R,0,2 

200 RESTORE 10 

210 GO TO 100 


X. LINANT 


Le kaléidoscope fou 

Quelques instants pour entrer ces lignes vous garan¬ 
tissent de longues minutes de fascination 


5 BORDER 0 ; OUER 1 
10 LET B=5*INT (RND+11J 
2© FOR N=B TO 85 STEP 3 
30 PLOT N,N 
4-0 LET R=2*N 

50 DRRU 255-R,0: DRfiU 0,175-fi: 
DRfiU -255+0,0: DRfiU 0,-175+fi 
60 PLOT 128-N,N 

70 DRRU fi,0 : DRfiU 0,175-R: DRfi 
W —fi,0 : DRfiU 0,-175+fi 
80 INK RND*7 
90 NEXT N 

) 100 CIRCLE 127,88,5 *INT CRND + 18 
110 GO TO 10 


M. HENROT 
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Cinq cassettes de jeu 


: LÈm 


JEU DE DAMES, Loriciels, Spectrum 48K, 

120 F 

Un logiciel soigné, de rapidité moyenne quoi 
qu’en dise la notice et aux algoritmes manifeste- 
ments très bien étudiés : les débutants à ce jeu 
aux principes simples, mais à la stratégie plus 
complexe qu’il n’y parait, sont mis en difficulté 
immédiatement ; quant aux bon joueurs, ils ont 
là un programme qui leur donnera certainement 
du fil à retordre. 

Le graphisme est un peu sommaire : il aurait été 
sans doute possible de donner un léger effet de 
perspective au damier pour rendre le jeu plus 
beau, mais c'est secondaire. Les petites musi¬ 
ques qui accompagnent les coups illégaux ou si¬ 
gnalent les étourderies finissent par taper un peu 
sur les nerfs. L’interactivité aurait pu être amélio¬ 
rée en fournissant la possibilité de déplacer les 
pions obliquement par affectation de certaines 
touches : ce sont là les seuls défauts, somme 
toute purement formels, que nous ayons trouvés 
à cette cassette qui en donne pour son argent. 







C H ALLE NG I NG S O FTWAR E 


mmtm 


- SWUHUt... • 

*. (Ht tÀeSfeectnum 




PSYTRON, Beyond Software, Spectrum 48K, 
environ 150 F 


L'argument est celui-ci : vous êtes Psytron, 
créature surhumaine et omniprésente et il vous 
incombe de protéger une base contre des élé¬ 
ments étrangers qui attaquent ou s'infiltrent, 
tout en gérant une logistique complexe de dé¬ 
fense... 


Nous nous sommes surpris à aimer ce jeu non 
seulement pour lui-même, mais par admiration 
pour la programmation formidable qu’il a impli¬ 
quée. Tout le monde ne l'aimera pas forcément : 
en particulier les dilettantes qui sé passent une 
petite cassette de jeu en attendant l’heure du 
goûter ne marcheront pas dans ce logiciel qui 
nécessite une adhésion totale et une volonté de 
réussir coûte que coûte à progresser dans les 
nombreux niveaux de difficulté prévus. 
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Logiciel de très haut de gamme qui mérite sur® 
tous .les points des appréciations superlatives x- 
que ce soit pour la qualité du graphisme, éton- T 
nant de variété, de réalisme et de perspective ou ’ 
pour l’intérêt du jeu lui-même qui récupère et in¬ 
tègre les principes de plusieurs familles de jeu : 
envahisseurs, stratégie, labyrinthe, etc. 



































































































PAÎNTING JOE, ERE Informatique, Spectrum 
16/48K,120 F 

Ce jeu, qui tient du Pac-Man amélioré, est cons¬ 
titué de trois tableaux différents. Dans le pre¬ 
mier, un petit singe, Joe, se déplace sur un qua¬ 
drillage où il doit ramasser tous les points qui s’y 
trouvent, ceci en évitant quatre gorilles qui par¬ 
courent inlassablement le labyrinthe de haut en 
bas et de bas en haut. Une fois cette épreuve 
passée, vous pourrez gagner du bonus en fai¬ 
sant chuter une banane de manière à ce qu’elle 
tombe sur Joe. Au troisième tableau, Joe est 
muni d’un pinceau et tente de peindre l'écran. 
Sans faire preuve d'une recherche graphique ex¬ 
traordinaire, ce jeu est tout de même très varié. 


LA MONTAGNE MAGIQUE, 

Les Aventures, Spectrum 48K, 150 F environ. 


RUINE, Lorîciels, ZX 81 16K, 80 F 


Un, casse-briques très vif à 9 niveaux de difficulté 
et aux étapes ponctuées d’effets d’affichage in¬ 
téressants ; avec « RUINE » nous avons affaire à 
une version honnête et même brillante d’un jeu 
évidemment devenu banal et qui rappelle les 
premières arcades de café en noir et blanc. 

Il n'en reste pas moins que le casse-brique est 
toujours l’un des meilleurs tests à réflexes qui 
soient : pour ceux qui apprécient ce genre de 
challenge, la cassette Loriciel est un investisse¬ 
ment tout à fait valable en dépit d’un choix peu 
naturel pour les touches de commandes. 


Avec ce jeu d’aventure, vous vous retrouverez 
plongé dans un univers mystérieux : celui de « la 
montagne magique », où vous rencontrerez des 
personnages étranges et inquiétants, où vous 
vous retrouverez dans des situations périlleuses 
et désespérées, à la recherche du rouleau de la 
sagesse convoité par tous les magiciens de la 
vallée... 

Ce logiciel en Français (heureusement) connait 
de nombreux mots, ce qui permet de dialoguer 
avec lui à l’aide de phrases simples, et allie hu¬ 
mour et suspense. Il demande de l’imagination 
et de la réflexion. A en juger par le nombres de 
cases à explorer sur le plan (environ 140), ce 
programme vous mobilisera intellectuellement 
un bon bout de temps. 
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INITIATION 






Dans le numéro 9 d’ORDI-5, Ce programme, conçu pour 

précisément dans la rubrique Spectrum mais aisément - 

« Juvénilia », nous avions proposé transposable au ZX 81, utilisait un 
un petit challenge à nos lecteurs espace mémoire important puisque 
basé sur un programme de M. chacune des 6 faces du dé était 

STOUFFS qui simulait le lancement représentée individuellement dans 
d’un dé. le programme. L’objet du challenge 

était de réaliser une 



programmation économique 
effectuant la même opération en 
moins de 1K. 

Beaucoup de réponses valables 
nous sont parvenues. Citons, parmi 
les bonnes réponses celles de MM. 
RUIZ, ARENSDORFF, GODARD- 
KATELL, DELUZ, RONCAGLIA, 
Melle JUHNKE. Parmi les très 
bonnes réponses, celles de MM. 
CROS, SEMIN. 

Les programmes les plus 
remarquables sont ceux qui 
arrivent à descendre en dessous de 
300 octets. Certains même 
franchissent la barre du quart de 
Kilo-octet soit 256 octets ! Ce sont 
les diverses solutions retenues 
dans ce dernier groupe de 
réponses, d’ailleurs toutes 
originales, qui vont nous servir 
d’illustration : nous allons les 
décomposer pour montrer 
comment on peut arriver sur le ZX 
81 à des programmations élégantes 
et intégrées avec quelques astuces 
simples à comprendre et à 
maîtriser. 
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La quadrature du dé 

Le programme demandé avait trois choses à fai¬ 
re : 


- générer un nombre aléatoire de 1 à 6.; 

- dessiner le cadre du dé avec des signes graphi¬ 
ques ; 

- imprimer les différents points de la face du dé 
sortie. 

Comment éviter de reproduire à chaque « jet » le 
cadre du dé, d'une part, et les différents points 
du dé qui ont une position identique selon les 
coups d’autre part, cela en utilisant plusieurs 
fois la même portion de programme ? 

En ce qui concerne le cadre du dé, il n’y a pas 
beaucoup de solutions possibles pour ce qui est 
des bordures supérieure et inférieure ; le dessin 
de ces bordures, composées de caractères gra¬ 
phiques spéciaux, occupe fatalement un certain 
nombre d’octets. Pour les bordures latérales, en 
revanche, deux solutions économiques se pré- 
. sentent : 

- ou bien on se débarrasse du problème en fai¬ 
sant exécuter une boucle avant de s’occuper 
des points, 

- ou bien on imprime des sections de bordure 
latérale en même temps que chaque ligne de 
points. 


On reconnaitra d'abord un prologue d’instruc¬ 
tions purement déclaratives qui affectent à des 
variables les nombres de 1 à 6 en n’employant 
qu’une seule fois une valeur numérique afin de 
ne pas perdre de place : nous savons en effet 
que ce type de variable est codé sur six octets, 
soit cinq de trop par rapport à une variable al¬ 
phanumérique (*). 


On découvre ensuite (ligne 70) la déclaration 
d’une « chaine alphanumérique » qui représente 
un cinquième des bordures latérales en caractè¬ 
res graphiques ; puis l’instruction qui doit géné¬ 
rer le nombre aléatoire (ligne 125). 

L’instruction qui constitue le coeur du program¬ 
me est l’instruction 130 qui comprend un certain 
nombre d'astuces efficaces : 

- le recours systématique aux deux virgules 
consécutives « ,, » qui signifient « passer à la li¬ 
gne suivante pour imprimer la suite » ; 

- l’utilisation massive des fonctions logiques est 
le deuxième point fort de cette instruction cen¬ 
trale. Les fonctions logiques ne peuvent donner 
que deux résultats, « 0 » ou « 1 », selon que les 
propositions testées sont vraies ou fausses : se¬ 
lon le résultat on imprime (la proposition est 
vraie) ou non (la proposition est fausse) un pavé 
noir avec une succession de commandes d’affi¬ 
chage « indicé » (fonction PRINT AT). 


Il n’y a pas de formule qui permette d’économi¬ 
ser un nombre considérable d'octets ; aussi les 
deux méthodes ont-elles été utilisées concur¬ 
remment dans les meilleures réponses. 

Pour l’impression des points, qui commande 
l’analyse logique de l’ensemble, plusieurs solu¬ 
tions ont été mises en oeuvre et il en existe évi¬ 
demment d’autres qui restent à trouver. 


Astucieux, pipez vos dés... 


Par exemple, on voit à la fin de l’instruction : 

AT E,E ;« 1 » 

ceci correspond à la position d’impression ligne 
5-colonne 5 qui ne sera occupée que si le nom¬ 
bre aléatoire Z est égal à la valeur B, c’est à dire 
2, ou la valeur C, c’est-à-dire 3. 

Un second programme, celui de Yann GAR¬ 
NIER, reprend un peu le même type d’analyse 
logique mais comporte un certain nombre 
d’améliorations pour une structure identique. 


Voici d’abord le programmme de Didier GUMY 
qui fait 283 octets seulement lorsqu'on enlève 
les trois instructions finales qui ne font que répé¬ 
ter le processus et ne sont donc pas indispensa¬ 
bles d’après le « cahier des charges ». 


10 LET H = 1 
£0 LET B=R+R 
30 LET C=B+A 
4-0 LET £>=C-*-A 
50 LET E=D+R 
60? LET F-E+A 
70 LET fl$ = "f_ 
SB LET 

125 LET Z=INT 
130 PRINT 
y ,R$., ..RS, 


£RMP »F.> +fi 

ü y y BS y ifi$, y R S 

g ÔRZ=E OR Z=FjTbt'e',R?BS W 

RND (Z=D OR Z=E OR Z=FJ ; RT C,fl*B 

5T £' C À"®" Ê WD OR 

Z=COR Z=E);flT R,R;"B" AND £Z=B 
Z=OJ j RT E,E; "É" AND (Z=B OR 

Z=C) 


14-0 PAUSE Es-S-C 

150 CLS 

160 GOTO E**C 


B* £ 
» » 


S LET D=PI/PI 

3 LET E=CODE • ,sa " 

4 LET R=XNT (RND*C)+D 

5 LET B =C QDE “gg“ 

g PRINT " r"— *1 " y , "8 ” ; CHR$ ( 
";ÇHRS (B*(R>E));"g 
"I 1" y , "8 ; CHRS (B*tA=CJ> 

; CHHÎ tB*r.R=D OP. R=E OP. R=UR. 
5">>;" "iÇHRS 

I “ ; CHRS (B* (R >E) 1 ■ 
;CHR$ £B* (R >D) ) ; B" y 


Voici en quoi consistent les améliorations qui 
permettent d’obtenir une chute radicale de 40 
octets environ. 

D’abord, il n’y a au début que trois déclarations 
au lieu de six : il est évident qu’il n’est pas né¬ 
cessaire d’affecter autant de variables qu’il y a 
de nombres de 1 à 6, car tous ces nombres peu¬ 
vent être reconstitués aisément avec les seuls 
nombres 2 et 3 ( 3 moins 2 égale 1, 2 multiplié 
par 3 égale 6, etc). On perdra évidemment 2 oc¬ 
tets pour exprimer, par exemple, 5 avec 2 + 3 
mais on en aurait perdu davantage en déclarant 
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LET X=5, sauf si l’on fait appel fréquemment à 
ce nombre , mais ce ne sera pas le cas dans un 
programme que l’on désire faire le plus court 
possible. On notera le LET D = PI/PI qui équi¬ 
vaut à LET D = 1 avec un gain de trois octets...il 
n’y a pas de petits bénéfices. 

Y. GARNIER utilise bien, comme le program¬ 
meur précédent, une seule instruction d’impres¬ 
sion qui concentre l'ensemble de l'analyse logi¬ 
que, mais ici s'introduit un perfectionnement 
appréciable : les impressions ne sont pas indi¬ 
cées par AT mais s'effectuent en séquence en 
analysant successivement les 7 positions d’affi¬ 
chage, ce qui explique que le dessins de la bor¬ 
dure du bas soit rejeté à la fin de la ligne. 



Grâce à cette simplification, tandis que le pro¬ 
gramme précédent imprime ou non en fonction 
du résultat des fonctions logiques, ce deuxième 
logiciel imprime donc toujours quelque chose, 
soit un pavé blanc (espace) soit un pavé noir 
dans chacune des sept cases considérées. Le 
caractère à imprimer sera celui correspondant 
au code 128 (si le test logique est positif) ou au 
code 0 (si le test est négatif). En effet, une ex¬ 
pression comme CHR$(B*(A=C)) vaut CHR$ 
128, si A=C et CHR$ 0 si AOC, en donnant 
auparavant à B la valeur 128. 


Dé plous en plous forrrt ! 

La démarche très différente suivie par H. HUM- 
BLIN dont voici le programme, 



a let a=SGN px 

3 LET 

4 LET C=BÆ 
6 LET D=B+C 

5 PRINT m 
9 PRINT " ff™ 


J 


fi B 

10 LET S=INT (RNOiO )+fl 
S® XF INT (S/B) OS/8 THEN PRIN 

T pjl" p Q « "SB" 

■30 XP INT S-iSfl THEY-f PR INT RT 3, 
S.;"®"; RT S>,&; "B" 

4-0 IF S >=C THEN PR INT RT D,S;" 
®"; RT B,D;"B" „ 

50 IF S=D THEN PRINT RT 
“ ; RT C,D; "B" 


est très logique : il arrive à 265 octets en organi¬ 
sant une série de quatre tests. 

Après que le cadre ait été dessiné, le premier 
test détermine s’il s’agit d’un nombre pair ou im¬ 
pair : lorsqu’il s’agit d’un nombre pair, il y a au¬ 
tomatiquement impression d’un pavé noir au 
centre de la figure. 


A partir de là, le programme ne considère plus 
que des couples de points ; 

- première diagonale pour le « 2 » et au-dessus ; 

- deuxième diagonale pour le « 4 » et au-dessus ; 

- enfin, les deux points placés à l’horizontale qui 
n’appartiennent qu’au « 6 ». 

Ces divers couples de points sont imprimés ou 
non suivant le résultat de trois test avec IF (li¬ 
gnes 30, 40 et 50). 

Le programme de H. HUMBLIN nous a paru re¬ 
présenter la démarche ia plus naturelle, aussi 
avons-nous essayé de l’optimiser. Cette optimi¬ 
sation permet de tomber à 239 octets : 


2 LET fl=SGN PI 

3 LET B=fl+fi 

4 LET C=B*B 
S- LET EXs&l-C 

7 LET Rfc=“ £ S-" 

8 PRINT ________ 

5 PRINT " j PWH min—™ .. , , R $ , , R $ , , R 

î, jR$j ,-flS J f " fisæsHsæssJBüffl" 

a© LET &=3W7(9N5 sÎ» i-R 
20 IF INT (S/BIOS/B THEN PR IN 
T RT C,C; "®” 

25 GOTO D*-SB—S 
30 PRINT RT C,B; “B"; RT 
32 PRINT RT D,B;"B";RT B , D; "fl 
34. PRINT RT B,B; RT "B" 


D’abord, pour le dessin du cadre, on a déclaré 
une variable supplémentaire, ligne 7. 

Le principe d’imprimer un pavé central pour les 
nombres impairs a été retenu (ligne 20) ; en re¬ 
vanche, pour les lignes suivantes on a organisé 
une succession de trois instructions d’affichage : 

- la ligne 30 imprime les deux pavés du « 6 » ; 

- la ligne 32 affiche les deux pavés de la deuxiè¬ 
me diagonale ; 

- la ligne 34 se charge des deux pavés de la pre¬ 
mière diagonale. 


Un transfert est commandé à la ligne 25 en fonc¬ 
tion du nombre aléatoire S vers la première, la 
deuxième ou la troisième des ces trois lignes, se¬ 
lon que l’on veut imprimer un « 6 », un « 4 » ou 
un « 5 », enfin un « 3 » ou un « 2 ». 


Supposons qu’il faille imprimer un « 6 » ; le 
D**B-S (ligne 25) vaudra 6 puissance 2 moins 6 
soit 30 et les trois lignes d’affichage seront exé¬ 
cutées. S’il fallait imprimer un « 3 », le transfert 
se ferait à une ligne 33 qui n’existe pas, donc la 
ligne 34 est seule exécutée et dessine les deux 
points du « 2 » qui s’ajouteront au pavé central, 
déjà présent. 
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Nous avons réussi à descendre quant à nous à 
225 octets, en utilisant une solution de facilité 
qui évacue la partie la plus contraignante du 
problème, c’est-à-dire l’analyse basée sur des 
fonctions logiques. 



1 

2 

3 
4. 

IX 

,R$ 

16 

i" 

17 

1S 

19 

20 
21 


LET U=SGH PI 
LET D=U+U 
LET 5=D*#D+D 
LET 

PR INT •■panarnsŒ 


S" 


i" , ,R$,,fi$ 

LET'P$="-$D$)9D$)9D.$)SD 

LET fl = INT (RND*S3 +U 

LET N=fl* tfl~U) SD 

FOR X=U TO R 

LET C=CODE (PS(N + 1))/'S 

PRINT RT INT C-U,S*<C-INT C 


22 NEXT I 


Le secret consiste a créer une chaine de carac¬ 
tères (ligne 16) où la position de chaque point 
est représentée par un caractère dont le code, 
divisé par 6 donnera une valeur entière qui sera 
le numéro de ligne et un reste qui sera le numéro 
de colonne où il faut afficher un point ; ceci im¬ 
plique que la chaîne ait 21 caractères, car il faut 
pouvoir représenter 1 + 2 + 3 + 4 + 5 + 6'posi¬ 
tions. Le premier caractère de la chaine contient 
ainsi les coordonnées du point pour la face 1, les 
caractères 2 et 3, les coordonnées des deux 
points de la face 2, etc. 


Les instructions clé du programme sont à la fin. 
Elles ont pour objet, en fonction de la valeur sor¬ 
tie aléatoirement : 

- premièrement, de rechercher la section de la 
chaine de caractère relative à la valeur rencon¬ 
trée ; 

- deuxièmement, diviser « modulo 6 » le code ou 
la suite de codes de chaque cas considéré et im¬ 
primer au couple ligne-colonne requis. 

Le choix des caractères contenus dans la chaine 
suit cette règle : si un point doit être imprimé à la 
deuxième ligne, première colonne, on choisira le 
caractère dont le code est égal à 2*6 + 1 = 13. 

Qui fera mieux que 225 octets ? Le dé, pardon 
la balle, est dans votre camp ! 



Xavier LINANT de BELLEFONDS 





Possesseurs d’imprimantes 
réjouissez-vous ! Voici un 
programme qui vous permettra de 
sortir des listings plus contrastés, 
donc plus lisibles. Tous ceux qui 
trouvent les caractères du 
Spectrum un peu grêles peuvent 
s’amuser à entrer ce logiciel qui va 
donner du « corps » aux différentes 
lettres. 


Ce programme modifie et recopie tout simple¬ 
ment le jeu de caractères du Spectrum. Cette 
modification ne porte que sur les caractères al¬ 
lant de l’« espace » au symbole « copyright ». Le 
jeu standard se trouve en ROM, et l'interpréteur 
pointe à l’adresse contenue dans'la variable sys¬ 
tème CHARS dont le contenu se trouve en 
23606 et 23607. En réalité, la variable CHARS 
pointe l’adresse du 1 er caractère moins 256. Es¬ 
sayez PRINT PEEK 23606 + 256 X PEEK 
23607. Normalement, vous devez obtenir 
15360, ce qui veut dire que les caractères sont 
situés à partir de l’adresse 15616 
(15360 + 256). 


Le travail consiste à pointer chaque octet de la 
zone en ROM, à la modifier suivant sa valeur en 
élargissant sélectivement les traits verticaux de 
celui-ci, puis à le recopier en RAM, dans une zo¬ 
ne choisie à l’avance. 


Corsez vos lettres 


N’oubliez pas d’apporter les petites modifica¬ 
tions ci-dessous si vous avez un Spectrum 16 K. 
Lancez le programme avec RUN ; au bout d’une 
minute, les deux jeux de caractères s’affichent 
et le programme s'arrête. 

Il est ensuite possible de sauver les caractères 
créés, afin d’éviter d’avoir à les recréer à chaque 
fois : faites 


SAVE nom CODE 31744,768 pour un 16k 
SAVE nom CODE 64512,768 pour un 48k 
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30 REM 


«cri s s s * 


Nouveau Jeu de 
caractères 


33 hem spectruia 4 Bï,adaptahie 

sur aeK 

34 REM 

as clebh 64saa 

30 BORDER 0: PARER 0: INK 7: L 

s g 

30 LET org= CPEEK 33606+356 «PEE 
K 336071+356; HEM Origine égalé 
a CHARS+356 

40 LET des=64533: hem Destinai 
ion la plus pratique pour 4SI 
70 PH3NT HT 30,6; FLASH ÏJ'fltt 
endez a minute" 

93 HEM 

300 HEM transfert et modifie. 
1Q1 HEM SSSSSSSJfSSSSSSSSSSSSSSs 
lia FOR i=des TO des +766 
aaa let b =PEEK org 
a35 POKE i,b 

330 3F b/4=INT tb74J THEN POKE 


fbvSJ THEN POKE 


* , b +3 

125 IF b78=INT 
i , b+4 

330 IF b/16=INT 
E i,b+8 

335 IF b733=INT 
E' i , b + 36 

340 IF b764=INT 
E i,b+33 

350 IF b=0 THEN _ _ 

360 IF b=66 THEN POKE i,b+33 

370 LET org=org+a 

360 NEXT i 

390 BEEP .5,30: BEEP .5,35 

399 REM 

300 rem affichage du résultat 


fb7361 

THEN 

POK 

tb/321 

THEN 

POK 

fb/E4J 

THEN 

POK 

FBKE i 

,0 



305 BORDER 7: PAPER 7: INK 0 
330 CLS : POKE 33607,des/256-1 
330 PAINT "POKE 33607des/255 

-3 

330 PHINT ; GO SUE 300; PHINT 

340 POKE 33607,60 

asg ES 3 NT '"POKE 33607,60" 

260 PHINT GO SUB 300; PHINT 

ZLf H:,N I... c ^^ ve9afde des cara 

Steres ; .SfiUE no» CODE ";des; 

, 766 

390 STOP 

300 FOR i=33 TO 337 
330 PHINT CMH* i;" 

330 NEXT i 
330 RETtIRN 


POKE 33607,353 
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Sauvegarde des caractères 
SRUE nom CODE 64513,768 


Modifications du programme pour un 16 K 

15 CLEAR 31743 
40 LET des = 31744 


Utilisation des nouveaux caractères 

Une fois le jeu créé et sauvé, on peut l'utiliser à 
volonté pour des listings ou chaque fois que l’on 
a envie de changer. Ceci est valable pour les 
programmes BASIC à partir du moment où ils 
n’occupent pas déjà toute la place en mémoire. 
Faites un CLEAR approprié pour dégager la pla¬ 
ce mémoire nécessaire : 

CLEAR 31743 (pour 16 K) 

CLEAR 64511 (pour 48 K) 

Chargez les caractères précédemment sauvés 
par un LOAD ””CODE. 

Ainsi placés, les caractères sont protégés et res¬ 
teront en mémoire même après un NEW. 

Pour disposer du nouveau jeu de caractères, il 
suffit de taper ou d’inclure dans un programme : 
POKE 23607,251 (version 48 K) 

POKE 23607,123 (version 16 K) 

Pour revenir au jeu initial, quelque soit la taille 
mémoire, il faut faire : 

POKE 23607,60 


Une remarque : les différents POKE précé¬ 
dents modifient l’octet de poids font de 
l’adresse contenue dans CHARS. Initiale¬ 
ment, la variable CHARS contient l’adresse 
15360 qui se décompose en : 
poids fort = 60, à l’adresse 23607 
poids faible = 0, à l’adresse 23606 
En choisissant l’adresse en RAM de façon 
à ce que le poids faible reste 0, pour chan¬ 
ger de jeu de caractère, il suffit de modifier 
seulement le contenu de l’adresse 23607. 
Cette simplification fait perdre 87 octets en 
RAM, situé juste avant l'adresse pointée 
par UDG. 

Ceci mis à part, la place en RAM peut être 
choisie comme on veut, du moment que les 
bons octets sont POKEs aux bonnes 
adresses. 

Et si malgré tout ce jeu de caractères ne 
vous plait pas, rien ne vous empêche de 
créer votre propre jeu en composant les 
caractères octet par octet. Après tout il n’y 
en a(que)768 ! 


O. Jeannin 
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Donnez du caractère 



votre 



Pavé noir, pavé grisé ou petit échiquier, les possibilités graphiques du 
ZX-81 en version de base découragent les artistes inspirés. Tout cela 
n’est pas sans remède comme en témoignent les recherches de deux 
lecteurs, Jean-Guy Delisle et Max Blanchet qui sont allés plus loin pour 
vous, que les articles de Patrick Gueulle (n° 5) et de Marcel Henrot (n° 3) 
sur les routines d’affichage ont intéressés. 


L’article de Patrick Gueulle (1) dans le n° 5 
d’0rdi-5 m’avait « challengé » quant à la possi¬ 
bilité d’afficher à l’écran les caractères définis 
dans la nouvelle mémoire vive (RAM). Par 
conséquent, des recherches s’imposaient et 
l'ouvrage de Don Thomasson (2) m’a fourni la 
réponse. 


Comment trafiquer l’affichage ? 

La mise en route du procédé d’affichage est 
exécutée et contrôlée par le ULA (uncommitted 
logic array) aussi appelé le SCL (Sinclair compu¬ 
ter logic), lequel lit directement les octets ins¬ 
crits au sommet de la ROM de lEOOh à IFFFh se¬ 
lon la formule suivante :■ 

1 *256 + CODE*8 + comptage 
ou 1 = valeur inscrite dans le registre 1 (lEhh) 
CODE = code lu directement du fichier d’affi¬ 
chage 

Comptage = sortie d’une compteur 0 07 

L’octet lu par le ULA est alors transmis en mode 
série au modulateur vidéo. 

Afin d’utiliser une mémoire vive pour changer la 
définition des caractères, il faut la brancher di¬ 
rectement sur les sorties du ULA, avant les ré¬ 
sistances de 1 kfî reliant la ROM et le ULA aux 
RAM et CPU. Ceci permettra au ULA d’attaquer 
directement cette RAM mise en service au lieu 
de la ROM mise hors service pour y lire les oc¬ 
tets formant les caractères. 

Comme l’indique. Patrick Gueulle, il faut mettre 
la ROM hors service au moment de la lecture 
dans la zone où sont inscrits les octets des ca¬ 
ractères, c’est-à-dire dans les conditions sui¬ 
vantes : 


- A9, Al 0, Al 1 et Al 2 au 1 logique, 

- MREO, Al 3, Al 4 et Al 5 au • logique, 

et nécessairement, de mettre la nouvelle RAM 
en service pour les conditions inverses. 

Si l’on utilise un bloc RAM de 16 k ou 64 k, il 
faudra tenir compte du signal de retour ROMCS’ 
(effacement des zones fantômes) que l’on doit 
passer par une porte « ou » afin de ne pas placer 
deux sorties TTL en parallèle. 

Pour la mise en service de la nouvelle RAM on 
doit prévoir un commutateur de sélection 
RAMCS/ROMCS pour les fonctions écri¬ 
ture/lecture dans cette RAM. 

Le schéma logique de ces conditions est donné 
à la figure 1. 

Pratiquement, le 2 e groupe de conditions 
(MREQ, Al 3, Al4 et Al5) peut être ignoré sans 
affecter le fonctionnement de la nouvelle RAM. 

De la théorie au fer à souder 

Une méthode de construction simple consiste à 
se procurer un socle 24 ou 28 broches (1 k ou 
2 k de RAM) lequel sera enfiché dans le socle de 
la RAM interne du ZX mais sur lequel on aura eu 
soin de plier vers l'extérieur les broches AO à 
A8, RAMCS’ (18 et 20) (plier délicatement ces 
broches). 

A l'aide d’un fer à faible intensité, souder sur les 
résistances de 1 kfi (RI 8 à R26) côté ROM - 
très important - neuf fils d’environ 15 cm repré¬ 
sentant les adresses AO’ à A8’. On peut utiliser 
des fils à gaine de couleur selon le code d’identi¬ 
fication des résistances, AO’ = noir, AI’ = brun, 
A2’ = rouge, etc., ce qui facilite le repérage; 
Ces fils sont alors soudés-sur. les broches pliées 
correspondantes du socle, 24 broches de la 
RAM 1 k. (figure 3). 
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. Les autres raccordements requis sur la carte du 
ZX pour le circuit de sélection et de commande 
peuvent être soudés au- niveau de la fiche de 
sortie extérieure du ZX, soit : 

- l’alimentation « + » et « - », 

- les adresses A9, Al 0, Al 1 et Al 2, 

- le RAMCS’, 

- le ROMCS’, 

Le ROMCS’ de la fiche extérieure permet de lire 
le signal provenant, du bloc RAM extérieur de 
16 k ou 64 k servant à .mettre la ROM-hors ser¬ 
vice dans les zones fantômes. Afin de détourner 
ce signal vers le circuit .de'sélection et com- 
.mande, la trace .sur la carte ZX.doit être section- 
. née au niveau de. la fiche extérieure, tel qu’indi¬ 
qué sur la figure 2. 



Les autres raccordements requis sur la carte ZX 
sont les suivants : deux fils de 15 cm environ 
raccordés de part et d’autres de la R28 (680Î2) 
raccordant le ULA au ROM. Le fil raccordé côté 
ULA sera raccordé sur le commutateur C2 au 
travers d’une résistance de 680Q, tandis que 
l’autr.e fil sera branché à la sortie ROM du circuit 
additionnel. 

Ces préparations étant terminées, il reste à 
construire le circuit de sélection et commande 
.selon le schéma de’filerie ci-joint. Toutes les mé¬ 
thodes de construction sont bonnes, celle que je 
préfère présentement étant un montage de so¬ 
cle 14 broches sur plaquette isolante perforée 
au 1 /10 pouce. 


Les nouveaux caractères mis en boite 

Evidemment, la bonne pratique exige une vérifi¬ 
cation de circuits avant la mise sous tension 
pour déceler les mauvaises soudures, les ponts, 
mauvais branchements et autres. 

Placer les commutateurs de la façon suivante : 

- Cl - Normal, soit alimentation « - », 

- 02 - Normal, soit RAMCS’. 

Le cursor « -K » inverse doit apparaître sur 
l’écran et l’ordinateur doit fonctionner normale¬ 
ment, sinon vérifier tous les circuits. Afin.de pou¬ 
voir redéfinir les caractères, il faut premièrement 
transférer le jeu de.caractères de la ROM vers la 
RAM, ou faire un travail aveugle. 

- Entrez le programme suivant : 

1 FORI = 7680 TO 8192 

2 POKEI, PEEKI 

3 N EXT I 

- Placez le commutateur C2 en position ROM, 
et sans vous occuper de l’image sur l’écran faire 
RUN et ENTER. 
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Un raffinement du système pourrait se faire en 
remplaçant Cl par une bascule et C2 par un 
commutateur électronique du type CD4016 ou 
4066 et d’attaquer ces circuits à l’aide d’un cir¬ 
cuit de sortie sur le ZX même commandé par un 
POKE, ce qui permettrait des changements de 
caractères au cours de l’évolution d’un pro¬ 
gramme I 


1) Des minuscules pour votre ZX81, Patrick 
Gueulle, Ordi-5, n° 5, 4 e trimestre 1983. 

2) The ins and outs of the Timex 
TS1000/ZX81, Don Thomasson, Melbourne 
House, 1983. 


Jean-Guy DELISLE 


Caractères en italiques 


- A l’apparition de ■ /3 au coin gauche inférieur 
de l’écran, placer le commutateur Cl en posi¬ 
tion « variante », soit alimentation « + ». 

- Vous êtes prêt à redéfinir les caractères'main¬ 
tenant dans la RAM à l’aide poke. Les carac¬ 
tères au nombre de 64 sont composés de huit 
adresses consécutives. 

Pour placer sous la clé « E » le caractère suivant 
« », il faut entrer les valeurs suivantes : 


et clignotement instantané 


Le ZX81 ne possède pas de lettres en minus¬ 
cules mais il est possible d’avoir des lettres en 
italiques (penchées en avant ou en arrière). De 
même qu’il est possible de faire clignoter l’écran 
exactement comme un flash (jusqu’à en avoir 
mal aux yeux !!). Et tout ceci en BASIC !! 


POKE 8016, 
POKE 8017, 
POKE 8018, 
POKE 8019, 
POKE 8020, 

POKE 8021, 

POKE 8022, 
POKE 8023, 


et puis : 

PRINT « E » et ENTER. 

La première adresse 8016 étant calculée ainsi : 

- Début zone des caractères + 8 x code du ca¬ 
ractère, soit : 

7680 + 8 x 42 = 8016 

L’utilisation de ces nouveaux caractères s'effec¬ 
tue exactement de la même manière que ceux 
de la ROM. 


Tiens bon la barre ça penche 


Lorsque le ZX81 génère l’affichage, le Z80 exé¬ 
cute une pseudo-routine USR débutant à 
l'adresse D-FILE (D-FILE+8000h pour être plus 
précis, ce qui à pour effet de faire intervenir le 
C.1.1). Seulement il n’exécutera pas les pseudo¬ 
instructions ayant leur bit 6 nul (il s’agit en l’oc¬ 
curence des caractères qui sont remplacés par 
des NOPs par le C.1.1), mais par contre, toute 
les instructions ayant leur bit 6 non nul seront 
exécutées par le Z80, comme l’instruction 
HALT. Il est donc possible de « POKEr » des 
codes d’instruction ayant leur bit 6 1 dans le fi¬ 
chier d'affichage autre que l’instruction HALT. 
Généralement, cela conduit au plantage bien 
connu des programmeurs en L.M. 


Par exemple les codes de LD, B,B ; LD C,C ; LD 
D,D etc. ne produiront rien à l’affichage, car DE 
est réinitialisé à chaque: ligne par la routine INT, 
par contre, LD B, registre (par. exemple) conduit 
à « la partie de pêche » !! 

Le fait de « POKEr » le code d’une instruction 
qui dure un peu plus que 4 T désynchronise l’af¬ 
fichage de la ligne de caractères en cours. Une 
ligne de balayage horizontal durera non plus 
208 T mais 209 T si l’on prend une instruction 
durant 5 T. 



ORDI-5 n° 12 mai 1985 - 35 






AFFICHAGE 


i 


Prenons par exemple l’instruction RET Z (bit 6 
de RET Z = 1) qui dure 5 T si elle n’est pas exé¬ 
cutée. Dans la routine INT (le drapeau Z vaut 0 
(si B et C <> 0) donc RET Z va durer 5 T. A 
l’affichage, après avoir fait le petit programme 
suivant : 


Il est possible de ne pas envoyer à la TV la partie 
du fichier d’affichage située après le code de JP 
(HL). 

Essayer le programme suivant : 



10 LET L = PEEK 16396+256* PEEK 16387 
20 POKE L+67,200 ;codedeRETZ 


on voit une « vague » se former sur la 3 e ligne de 
l'écran. 

En plaçant des codes 200 à de bons endroits on 
arrive à faire apparaître des messages (carac¬ 
tères) en ITALIQUES !! 

Ce petit programme affiche un message en itali¬ 
que à la 10 e ligne. 


10 LET L +PEEK 16393+256* PEEK 16397 
20 PRINT AT 10,1; « O RAGE O DESESPOIR O 
VIEILLESSE »30 POKE L+ 9* 33+1,200 


10 LET L+PEEK 16396+256* PEEK 16397 
20 FOR A=0 TO 703 
130 PRINT « » ; 

40 N EXT A 
50 INPUT A 

60 POKE L+A,233 ; code de JP(HL) 

70 IN PUT A$ 

80 POKE L+4,128 ; remet un pavé noir 

90 GOTO 50 


Entrer les valeurs 1 ; 2 ; 3 ; 4... puis 34 ; 35 ; 36 ; 
67 ; 68 ; 69 ; 331 ; 332 ; 15*33+2 ; etc. 


NB. Lors du INPUT A$ Le « » n’apparaît pas 

puisque cette partie de l'écran est effacée. 


Essayer avec PRINT AT 9, 1 ; « ... 

Avec des symboles graphiques et un peu d’ima¬ 
gination, on peut faire des graphismes assez im¬ 
pressionnants. 

Essayer le programme suivant : 


10 LET L=PEEK 16396+256* PEEK 16397 
20 FOR A+OTO 20 

30 PRINT AT A, 1 ; 

(30) 

40 N EX A 

50 FOR A= O TO 20 STEP 2 
60 POKE L+A* 33+1,200 
70 N EXT A 


Le grand intérêt de ce code 233 est de pouvoir 
faire clignoter l’écran instantanément par le petit 
programme de dessus modifié par : 


50 POKE L+1,233 
60 POKE L+1,128 
70 GOTO 50 


et d’effacer les lignes 80 et 90. 


On peut modifie? à souhait la fréquence de cli¬ 
gnotement, avec des boucles d’attentes faire 
clignoter l’écran d’une colonne sur deux, ou 
faire clignoter que les 5 dernière lignes de 
l’écran une colonne sur deux etc. etc. 


Est-ce des droites parallèles ou non ??? (NB. Le 
ZX n’y est pour rien, il s'agit d’une illusion d’opti¬ 
que, elles sont vraiment parallèles !!) 


Maintenant, on ne pourra plus reprocher au ZX 
de ne pas avoir la fonction FLASH du SPEC- 
TRUM !! 


Et ça clignote 


Quand le ZX décode une instruction comme 
celle vue précédemment, le registre HL contient 
l'adresse (+800h) du NEWLINE de la ligne en 
cours. Si l’on place l’instruction JP (HL) (qui 
dure 4 T), le PC reviendra inéxorablement au 
NEWLINE de la ligne en cours . 


J’espère que ces deux « trucs » susciteront la 
délirante imagination des programmeurs 
acharnés. 

NB. On peut trouver d’autres codes d’instruc¬ 
tion qui durent plus longtemps que 4 T, comme 
RET NC (revient au même que RET Z) ou JP Z 
qui dure 10 T (les caractères ne sont plus lisi¬ 
bles) ou encore JP NC. 


_ Max BLANCHET 
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5 programm 



Pharaon (ZX81 16K) 

Violez la tombe royale du grand 
Ramsès II, attention au plan 
complexe et aux éboulements. 


X 

REM 


310REM 


4 

REM 


5 

REM 


6 

REM 

(OP 

7 

REM 


30 

PRINT 

T RB 

■30 

PRINT 

TOB 

95 

PRINT 

TPB 

96 

PRINT 

t .» j 

100 

PRINT 

TAâ 

110 

PRINT 

Tnir 

120 

PRINT 

TSTB 

130 

PRINT 

yh b 

14-© 

PRINT 

VTAB 

la© 

PRINTV 

TAB 

160 

PR IL# 

TAB 

B 

170 

*« 

PRINT 

TAS 

B 

1GQ 

PRINT 

TAB 




190 

PRINT 

TAB 

"v’fflsaP** 

' 


SO0 
■ JSBBm 

PRINT 

TAB 

B 

210 

PRINT 

TAB 

22© 

PRINT 

TAB 

230 

PRINT 

TAB 

240 

PRINT 

TAB 

2S0 

IF INKEYS: 

290 

CLS 


30 «3 

PRINT 

** 

ES ENFERME' 


31© 

PRINT 


PIRAMIDE DU" 

320 

PRINT 

, , " 

SES II." 

1 

33B 

PRINT 

t • 1 

RAMMASSER L 

-È " ‘ 

340 

PRINT 

, l ’ 



.rHEN GOTO 360 

ATTENTION VOUS ET 

LE DEDALE DE LR 

PHRRRON RAM 

" IL UOUS FAUT 

.. PLUS POSSIBLE DE 
P-tECES D""OR." 

3=3 REM PRINT , , ” DE SALLE EH 
SALLE LA " 

360 REM PAINT ,," DIFFICULTE AU 
GMEMTE *" 

370 PRXNT , ,,,“ MAIS ATTENTÎO 
N.. DES O UE UOUS" 

380 PRXNT " PENETREREZ DANS U 
H COULOIR DES" 

390 PAINT ,," BOULES DE PIERRE 
TENTERONS DE" 

= 40S PRINT , UOUS ECRAS 

"ii© IF INKEY$ = " " THEN GOTO 4-10 
4-20 CLS 

UOUS DEUREZ ALLIE 


•4-3S PRINT " 

R REFLEXES" 

4-4-0 PRINT , ," 

R ABOUTIR." 

450 PRINT , , , 
REUSSIREZ-UOLIS 
4-60 PRINT . 

PIRAMIDE . , . " 

4-7S PRINT , , , 

FLECHES DU " 


ET REFLEXION POU 
' ET PEUT ETRE 


A SORTIR DE 


utilise: 


LE 


y j * 

CURSEUR POUR UOU 
<SHIFT-BREAK> UO 
D""ABANDO 


4-30 PRINT , . 

S DEPLACER." 

490 PRINT , 

US PERMETRA" 

S00 PRINT , 

NNER." 

510 PRINT .... 

520 IF INKEY $ = "•• THEN GOTO 520 
530 RAND USR 16516 
54-0 GOTO 530 


î-ff 1 f > 24- , 58,13,101,90,29,0 
16523,0.0,0,0,0,151,99 

16530.255.155.99.255.24- 1,101,255 

16537,163,99,255 ; 24-9 ; 101 I 255 171 
1654-4- , 99,255 ,175,33,25S , 209,99 

* flU' 255,35,100,255,191,100,255 
16558,67,101,255,225,101,255,0 
16565,0,0,0,0,156,24,3 
16572,0,26, 180,64-, 205,4-3,15 
16579,20S,178,67,205,251,66,205 
16586,129,67,205,156,67,205,106 

16593,66,205,89,66,205,211,65 

16600.205.32.65.205.24- 0,64- , 58 
16607,188,64- , 254- ,95,32,228,205 


16614-, 146,67,205,178,67,205,11 
16621,67,24,217,42,12,64,17 

16628.218.2.25.237.91.183.64 
16635,205,39,65,1,7,0,9 

16642.58.187.64.195.28.119.237 
16549,91,133,64,42,185,64,191 
16656,237,82,48,4,237, 83 ,185 
-Ë ?§2' 64 > 4-2, 12,64,1,238,2 
X6&70,9,237,91,185,64,205,39 

16677.65.201.1.240.216.205.66 
16684,65,1,24,252,205,66,65 

16691.1.156.255.205.66.65.1 

16698.246.255.205.66.65.1.255 
16705,255,62,155,229,213,225,60 

16712.9.56.252.237.66.235.225 
16719,119,35,201,6,12,33,144 
16726,64,229,197,205,100,65,193 

16733.225.35.35.35.16.244.201 

16740.94.35.86.35.126.235.27 
16747,27,229,254,0,40,14,254 
16754,1,40,15,254,2,40,16 

16761.254.3.40.17.225.201.1 
16768,223,255,24,15,1,1,0 
16775,24,10,1,33,0,24,5 
16782,1,255,255,24,0,9,126 
16789,254,0,40,10,254,23,40 

16796.16.254.136.40.43.225.201 

16803.54.52.235.115.35.114.225 
16810,54,0,201,225,225,225,225 
16817,225,33,137,64,53.175,190 

16324.245.205.240.64.241.200.42 
16831,134,64,54,0,205,146,67 

16838.205.116.67.195.201.64.235 

16845.35.35.54.255.225.201.42 
16852,134,64,17,33,0,229,205 
16859,247,65,225,17,223,255,229 
16366,205,247,65,225,17,1,0 

16373.229.205.247.65.225.17.255 

15380.255.229.205.247.65.225.201 
16887,25,126,254,128,200,254,136 

16394.200.254.123.200.254.123.20 
0 

16901.254.27.200.254.52.32.235 

15908.25.126.254.136.192.191.237 

16915.82.235.6.12.33.144.64 
15922,197,229,78,35,70,96,105 
16929,191,237,82,40,8,225,35 

16936.35.35.193.16.237.201.225 

16943.193.115.35.114.35.54.1 

16950.19.205.80.66.54.3.27 
16957,27,205,80,66,54,0,19 
16964,1,223,255,235,9,235,205 
16971,80,66,54,2,201,26,254 

16973.128.200.254.136.200.225.20 
1 

15935,229,213,42,136,64,237,91 

16992.134.64.25.34.136.64.126 

16999.209.225.201.42.37.64.1 
17006,247,223,55,63,237,66,40 
17013,87,42,37,64,1,239,247 

17020.55.63.237.66.40.25.42 

17027.37.64.1.239.223.55.63 

17034.237.66.40.93.42.37.64 

17041.1.239.239.55.63.237.66 
17048,40,63,201142 î134,64,229 

17055.62.2.50.137.64.35.126 
17062,254,27,40,17,254,0,40 
17069,2,24,9,54,23,34,134 
17076,64,225,54,0,201,225,201 
17083,1,50,0,229,42,183,64 
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XI 

D 

LU 


17090,9,34,183,84-,33,188,64 
17037, sa, aas, 34., aa7,4-a, 134, 64. 
17104,229,62,4,50,137,64,43 
17111,24,204,42,134,64,229,62 
17113,1,50,137,64,1,33,0 
17125,55,63,237,66,24,186,42 
17132,134,64,229,62,3,50,137 
17139,64,1,33,0,9,24,171 

17146.201.33.189.64.54.28.33 
17153,0,0,34,183,64,62,3 
17160,50-, 187,64,33,189,64,53 

17167.53.33.144.64.34.130.64 
17174,42,12,64,17,37,0,25 
17181,6,7,205,89,66,203,73 
17188,229,40,4,17,82,2,25 
17195,54,52,197,229,193,42,190 
17202,64,113,35,112,35,54,255 
17209,35,34,190,64,193,22S,35 
17216,35,35,35,16,213,42,12 
17223,64,17,69,0,25,6,5 

17230,205,89,66,203,79,229,40 

17237,4,17,26,0,25,54,52 

17244,197,229,193,42,130,64,113 

17251.35.112.35.54.255.35.34 
17258,190,64,133,225,17,132,0 
17265,25,16,213,42,12,64,1 

17272.155.1.3.34.134.64.54 

17273.23.201.197.229.33.189.64 
17286,70,225,14,0,13,32,253 

17293.5.32.248.193.201.197.6 
17300,16,205,129,87,16,251,193 
17307,201,229,245,42,37,64,125 
17314,254,127,32,9,124,254,252 
17321,32,4,225,225,225,201,241 
17328,225,201,205,42,10,175,50 

17335.188.64.42.12.64.35.205 
17342,113,68,205,33,68,22,4 
17349,205,67,68,205,25,63,21 
17356,32,247,205,67,68,205,83 
17363,68,205,113,68,205,219,67 

17370.201.42.12.64.35.35.205 
17377,238,67,42,12,64,17,30 
17334,0,25,205,233,67,201,17 
17391,33,0,6,20,54,136,25 

17398.16.251.201.35.35.6.6 
17405,54,128,35,54,0,35,54 

17412.128.35.54.27.35.54.128 
17419,35,54,0,35,16,242,54 

17426.128.35.35.35.35.35.201 

17433.205.249.67.35.35.54.128 
17440,35,54,0,35,54,27,35 
17447,6,6,54,128,35,54,27 
17454,35,54,0,35,54,27,35 

17481.16.242.43.54.123.35.35 

17468.35.35.35.205.249.67.201 
17475,35,35,35,6,25,54,8 

17482.35.16.251.35.35.35.35 

17439.35.201.35.35.54.123.35 

17496.6.6.35.54.128.35.54 
17503,128,35,54,128,35,S4,0 

17510.16.242.35.54.128.35.35 
17517,35,35,35,201,35,6,29 

17524.54.136.35.16.251.35.35 
17531,35,201,195,60,122,113,0 



Marîenbad Speetrum 

Une version économique de ce jeu 

bien connu des programmeurs qui 

accommodent son algorithme de 

mille façons : selon les niveaux, le 

Speetrum est plus ou moins 

vigilant. 


5 CLEflR 30000 
10 DIM a CS) : LET e$ = " 

": BORDER 6: PAPER 6: CLS 
20 FOR n=30002 TO 30020 
30 RERD a : POKE n,a 


40 NEXT n 
50 PRINT 
R INT 

80 PRINT 
oses sur 5 


JEU DE MRRIENBRD* 


"Des objets sont disp 

_ _ lignas..Chaque joue 

yr choisit une"; "ligne puis en le 
ve autant","d objets qu il le ve 
ut","(au moins 1 )dans la ligne" 
, "choisie . ce lui qui enleva le 
dernier objet a perdu." 

70 print "le Speetrum va tires 
une","position puis vous allez 
jouer",“contre lui.Si vous trier 
ez ","l entree sera refusee." 


C" 


80 PRINT : PRINT "RPPUYEZ SUR 

THEN GO TO S 


0 


90 IF IHKEY$0"C 


Philippe MOY 


10© Ci_S : PRINT "Entrez le nive 
au de jeu" , "souhai te ldelal3) . " , 
Uous pouvez entrer un nombre* , n 
on entier.",,“Si vous entrez® fou 
moins)" , " le speetrum jouera toi 
a lemen t *' , "au hasardtdonc très ma 
l),","Si vous entrez X0tou plus) 

, il", "jouera a la perfection." 

110 INPUT "niveau?";ni 
1000 CL.S 

•1010 FOR n =1 TO 5: U ET a(n)=INT 
(1+29*RND): NEXT n 
1020 FOR n =1 TO 5 
1030 PRINT "L";n;“:"; 

1040 FOR i=1 TO a en) 

1050 BEER .1,0: PRINT “fi"; 

1060 NEXT i: PRINT : PRINT 
1070 NEXT n 

1080 PRINT RT 12,0;“qui commence 
?1 : vous2: le Spectruai" 

1082 IF INKEYSC > '*i" RND INKEY$<> 
"2" THEN GO TO 1082 
1084 PRINT RT 12,0; e$; a $ 

1090 IF INKEY$=”i" THEN GO TO 14 
00 

1100 PRINT RT 12,0;eî+e$+eâ 
1105 IF 1B*RND>ni THEN GO TO 135 
0 

1110 UET C =0 : LET e=0 

1120 FOR n=l TO 5: LET C=C+lalriï 

>1): NEXT n 

1130 IF C <2 THEN GO TO 1300 
1140 FOR n =1 TO 5 
1150 LET d=0 

.1160 FOR i =1 TO 5: POKE 30000,21* 
tn-1): POKE 30001,ati): LET C=US 
R 30002 

1170 IF C THEN LET f=i: LET d =NC« 
T d 

1180 NEXT i: IF d THEN LET e=e*8 
t(n-i): LET l = f 
1190 NEXT n 

1200 IF e =0 THEN GO TO 1350 
1210 POKE 30000,a tl> : POKE 30001 
,e: LET r=USR 30011: LET O=a(l)- 

1220 FOR n =1 TO O 

1230 BEER .2,2: PRINT RT 2*1-2,a 
C l) +2; " 

1240 LET a Cl) =a Cl)-1: NEXT n 
1250 IF a Cl) +a C2) +a C3) +a C4) +a t5) 
THEN GO TO 1400 

1260 PRINT RT 12,0;"bravo vous a 
vez gagne" 

1270 PRINT "pour rejouer appuyez 
sur c","pour changerde niveau s- 

1280 IF INKEYÎ<>"C" RND INKEY$<> 
"n" THEN GO TO 1280 

1285 IF INKEY*="C" THEN GO TO 1© 
00 

1290 INPUT "entrez le nouveau n* 
veau";ni: go to 1000 
1300 IF C =0 THEN GO TO 1350 
1310 LET r =0 _ , „ 

1320 FOR n =1 TO 5: IF 3(n) THEN 
LET r=NOT r: IF aCn)>l THEN LET 

1330 NEXT n: LET B=all)-r 
1340 GO TO 1220 

1350 LET l=INT tl+5*RND) : IF a Cl 
)=0 THEN GO TO 1350 ^ 

1380 LET O =14INT la C l) *RND) : GD 
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TO 1220 

1400 PRINT RT ia,0j"a VOUS de jo 
U6r ê$/ è$ 

1410 'INPUT "numéro de ligne"; i 
14-15 XF lOlNT l OR 1<1 OR l >5 T 
HEN GO TO 14-10 

14-20 INPUT "nombre d objets otes 
" ; o 

14-30 XF O < > INT O OR 0<1 OR 0 >aCl 
> THEN GO TO 14-10 
14-4-0 FOR n =1 TO O: BEEP .2,0 
1450 PRXNT RT 2* l-2 , a U. > +2; " " 

1460 LET a(l)=aCL>-1: NEXT n 
1470 IF a tlJ +a (Si +a (3) +a (4) +a (5) 
THEN PAUSE 60: GO TO 1100 
14S0 PRXNT RT 12,0; "te Spectruiii 
a 9a9ne"+e$ ; GO TO 1270 
§ 0 ®® S5T R .,2 3 si 8 i2- :17 ' 126 ^ 35 'i66,7 
3 i75'71 1 20l' 4 ' 8 ' 117j 126 ' 35 '174,72 


ÉINKEV$LN '? IN K E Y $ ?§R N D 5 K ? GOSl IB 
fSRND GO SUE; ? GOSUB ?®3ND?7?TRN 
gosub ?§rnd < -î GOSUB ?Érndln BIN 
KEY$TflN 5K? GOSUB TgRND GOSUB ? 
GOSUB?SRND GOSUB PI?7?Y "TflN £ü 
R N D 7 SÜK ND'Y fiü4 ) IO S BffiP: N D Y H®4 B B 'Y' n HgR 
N DT H N GOSUB ?£RND FflST 5® B GOSUB 
?SGf-i ?7?TfiN EBRNDUHRNDUIMJSRNDTÜ E 
RHDp""Y MgRND7SlRNDYfll4-j IBSSlRND 
Y Hffl4a*Y "MHR N DTR N GOSUB ?£RNO FflST 
PS G N a GOSUB ?SGN ?.7?TflN ?U' 7 
OS *< REM F.LflD 0 U CE UR<ifl 84 
5 

4 SfiUE "SERPENS" 

5 LET UIE=3 

R I PT R 1 “ H — 


Jean-Michel Edel 


Serpent ZX81/16 K 
Moitié snake, moitié Pac-man, voici 
une jolie réalisation de conception 
relativement simple qui peut vous 
donner envie, une fois lassé du jeu, 
de comprendre le mécanisme des 
différentes routines. 




1 REM 7BRNDM3Ü? NEU E COS 
0 fl 5 G 0“ E £ R N D aa a G 0 S U B ? SS|R N D Y® 7 S 
SfjjR N D BSR H D 500 sffiR N D 6ÜR N D Y MgjjR N D 
: ; X : X M^RNDLN i® FflST LN STEP INKEYsLN 
iWS UINKEYjiLN HlNKEYÿSGN UgRND RETU 
X*X : RN "COS RETURN = COS Y CO P Y gjC SL 
¥:¥: ou -Y RUN Hl 35 ?' TO IflSN " INKEY$Y L 
: : : : : : : : OflD ®4*Y LOflD EjfiSN INKEY$Y LOflD 
®TflB IF RNDY TO ffiflSN SIMKEY$Y L 
X : X OflD 11® 2 ?' RUN jSflSN >INKEY$?§RNDES 
R N D F ? ? IN K E Y $EÜR N D 7 ? ? IN K EY$ElR N D- ' 
«x: ro COPY GOSUB ? ? ? IN K E Y $ EpRN D® 5 
m GOSUB ???INKEY$£ COPY Y ïUiRND? 

X RETURN 4 CLS HTfiB NINKEY4TRN 
vX; TflN TflN YB?gflSN BRND77INKÎ 
&:■: U B ŸtsRND® 53 GOSUB 7'gRNDTflN 
:ŸX h PII N K E Y $ Y * ?§ FflST flTN 
m LPRINT Yf? GOSUB 7 'PR N D Y o“bf!P N n i N 


000 00 0 


0 0 U 


00 000 0 


0 

0 

0 

0 


30 


U 0 0 ' 

00 0 oon 

0 00 0 
000 0 000 
000 0 0 
O 


3: GU P 
0?gHS 


IJ 

000 00 0 0 
0 0 0 0 0 
0 0 0 000 
000 
0 

0 0 

110 FOR fl = l TO 
120 NEXT fi 
125 POKE 16418 > 2 
130 PRINT ...."ENTREZ Lfi VITESSE 

1 H P 0 ' 1 

140 INPUT U 

150 IF U<1 OR U>30 THEN GOTO 14 

0 

ISO LET U=31-U 

170 PRINT ,."ENTREZ Lfi DUREE DU 
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Xi$» 

dm m 

LU 


T 


JEU 

10 H 50" 



180 

INPUT T 



190 

IF T <10 OR 

T >5@ 

! HE! 

208 

CL 5 



210 

FOR A=9 10 

1 STEP - 

P 20 

PRINT RT i 

L'i ,3; ** 

RTTEl 

■ 10 



HL50 

P* H X H ! H I 3 

16.; *' 

•r -r £ -r 

240 

PRINT AT 1 

1,16; 


i , 16 ; 

AT 10, 

20 ; "* 

“ 

250 

PRINT AT 1 

0 ,13 ; 

a 

260 

NEXT H 



270 

POKE 16519 

,T 


260 

POKE 16528 

t U 


290 

- CLS‘ , 



308 

POKE 16418 

, 1 


305 

U L ’z* 



310 

H R XN i H $ *rB 

$+D$+U$+A 

315 

PRINT AT 2 

1,17; 

UIE 

320 

RfiND USR 1 

6516 


330 

GOSUB 500 



340 

FUR A = 1 1 0 

28 


350 

N EXT R 



360 

CL S 



400 

PRINT A$+B 

Ï+HÇ+EÎ 

410 

FOR A=1 TO 

4 


4j£0 

r'RiMl r $-rH 

Ï + Ü5 + 

4$ 

430 

N EXT fi 




Gu I 0 1 


4-4G PR INT A$+C5+fi$ 

4-50 PR INT HT 21.. 17 ; UIE 
460 RRND USR 16516 
470 GOSUS 500 
460 FüR H — 1 ! U 20 

490 NEX! fl 
42 1 01— S 

492 PRINT fl $ tB$ +K $ +0 $ + fl $ 

493 PRINT AT 21, 17; UIE 

494 HAND USR 16616 

495 GO S US 500 



496 FOR A =1 


497 

49S 

500 

510 


'y'“j“ p» 

GOTO 388 
LET B=PEEK 
XP R =8 THEN 


_ 8 


1 R R 31 
LÊT u 


530 IF B =2 THENLET 


lOPDC Lfll eu 


»>+— - 


THEN L 


T 


540 

F R IN ! HT X\ô .i 

0 ; fl$; AT 18 

0 ; 0 % 

550 

IF INKEY$=“" 

1HeN GO 10 

540 

SBîz 

GOSUB 700 



568 

rp g <• 1 THFN 

LET UIE =U 

TF - i 

578 

IF UIE =8 THE 

N GOTO 608 


560 

IF B =1 THEN 

LET U=U-2 


F90 

IF Bol THEN 

LET U =U+2 


591 

POKE 15520,U 



595 

RETURN 



600 

CL S 



610 

FR IM } HT *D 0 

; "IL NE UO 

U 5 R E 


STE PLUS DE UIE";HT 10,3;"UOUS A 
UEZ PERDU": AT 13,0 ; " UQIJLEZ UOUS 
REJOUER Ô/N " 

620 IF INKEY$=“" THEN GOTO 620 
630 IF INKEY3 = "0" OR INKEY$="5" 
OR INKEY $ = " 6 " UH J-NKE'ï' $ = ' t UH - 
INKEY$="S" THEN RUN 5 
640 PRINT AT 20,15;"AU REUOIR « 


650 
700 
710 
720 
730 
740 
750 
760 LE I 


STOP 
LET C ; 
LET 
LET 


(PEEK 16529)-26 
D=((PEEK 16530)-26)*10 
SCORE=C+D 
LET E =(PEEK 16531) -26 
LET !~ = ( (PEEK 16532) -26 3 *10 
LET TEM =E + F 

TEMPS=100-TEH 


1 UDTRE SCORE 


778 

LET SC 

= INT ( 

((TEMP3*10) 

/T) > 

630 

CL S 


840 

PRINT 

AT 5,5 

ST : ’ 

' j 5CORE 


850 

LET SC 

0 =300 + 

§60 

F H IN i 

AT 10 , 


COMPENSE ESI 


0; "LE 
; SCO 


6UORE : 


870 

FOR A =1 TO 

50 

680 

N EXT fl 


890 

RETURN 


1000 

FOR A = 1692! 

3 TO 16950 

1010 

PRINT PEEK 

fl; ","; 

1020 

N EXT fl 



16 6 & 3 
16570 

15 3 6 7 
16564 

1659£; 

16 S 0 5 

16 S19 
16626 
16633 
16640 


16 b 6 2 

1669 6 
16710 
16764 




•1 F, R 01 
16808 
16815 
16822 
16829 
16836 
16843 

16857 

16364 

16S7I 

16885 

16892 

16899 

16906 

16913 

16920 


35,151,6 4 b 0,31 
?è , 8,230,4,200 

ïéTléTsCïiîsiTÏL 237 _ 

149"’ôi750 !' 150^64^205 187 
2,2 2 '=) , 20b , 224 , b b , 205,47 
65,205 127,65,209,58,158 

64 ', 254 j 2,200 254 , i , 200 ■ 
82 ; 2 5 5 : 18:7 t 4 8 1 22 8,62,24 7 

65 ! îésTill 54,42 , Î37 ., 64 

6s ', i§5 ', 68,65 42 137,64 

&5~42 ', 137Y64,1,33,0 

6 2 1 0 « 5 t 5 8 , i 3 S, , 6* 4 7 y 
61,254 ', 0,32,251,18 4,194 
51 ', 65,20 i , 201,201,62,128 
70 ', 184 282 19 i , 64,195,89 

237,67,141,64,201,62,52 
78 , i84,202,66,6 5,62,23 
70 ’, 184 229 204,144,65,22; 

62,52,2,3 4 13 7,64,205 


1-6 7 F S 

54.33. 

48,11 

7 , P 8 

7,75 , 

141 

•1 C .77 • 


• 7 X t 2 

F, T “7 

D ,, l'Z* 

54 

1 F: 7 R 0 

'1.13,35 

, 112 , 

201 , 

h 3 / y 

i i 

16787 

64,19, 

IL • : i=!Ll 

7 • 88 

, 143, 

54 

16794 

205,18 

0 ,, 5 5 

201 , 

33,43 

11 


237,7b , 141,64 237,74,237 
7.5,143,64,237,68 , /8 35 
70,62 0,2,201,42 145 
64,35,34,i45,64,62,38 
ISy , u2,1 >■' , 4b , 2o , b b , J 4 
145 ’, 64 ', 62,38,168,32,6 
52 , i , 50,150,64,201237 
7 b , 1 2 1 b 4, 2 2 y , 3 3, 1 y U , 2 
237,74,209,114,35,115,281 
42,147,64,58,149,84,60 

60.149.64.71.58.135.64 

184.192.62.8.50.149.64 
35 - 34,147,84,62,38,189 
32 !, 17 • 46,28,36,34,147 

2 ', 50,158 64,201,237,75 
12,64,229,33,209,2,237 
74,289,114,35,115,201,19b 


F. Ladouceur 
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Othello ZX 81/16 K 
Un logiciel tout Basic évidemment 
un peu lent, mais qui en fait 
beaucoup pour peu de lignes. 
L’ordinateur demande d’abord le 
nom du joueur (A ou B). 

Si l’on désire jouer contre 
l’ordinateur, entrer ZX en premier. 
On entre les coordonnées de la 
case choisie sous la forme A4 par 
ex. 

Pour passerson tour faire « 00 ». 



j C .A. 

1 REM LRBYRXNTE S NXUERUX 

2 REM SUR Z.X.81+16K 

3 REM 

4 REM RUTEUR POTIER MICHEL 

s rem *#*it»ï*ORDi sa-a-a-a-a-a-a- 

5 REM- 

10 REM INITIALISATIONS 

20 LET H=0 
30 L ET fl = i 
40 LET C=3£ 

E0 L£T S=63 
TB S CS UE- 1BBB 
SB GOSUB 75© 

S© GOTO SBBB 
230 GOTO 2B0+fl*10 

St® LET G® = "49S95Ï.3®®43Ï.2®.'51493 
2S33B362449242® 12491241065306431 
94939" 
aïs RETURN 

220 LET G$="431343193239513917G 
4533408282728272436242119431920© 
6410S84310438288S281227242730323 
d-32394S2S463453S6S334" 

225 RETURN 

230 LET G*="1838463829323532253 
<32730082841281313211S432S4625201 
33713090656060415043813181328163 
42034203120382530253443064313431 
94325462S4638S60S5622" 

235 RETURN 

240 LET G$ = "0838133824383838143 
4253438274127092329233822562224© 
65506040904150908093014341438292 
329323586353238113338" 

24S RETURN 

250 LET G$="2431463185380938421 
955190520142805S914091406240605© 
00534140614143207323158195030558 
65540" 

255 RETURN 

288 LET G *="5030503205:395930463 
25832320748070534053914141420243 
12439421942395933593943074818" 
265 RETURN. 

270 GOTO 27Q+A+10 

238 LET G * = "0331119121352415406 
152391" 

285 RETURN 

290 LET G$="4312184391183410728 
12031227311420624419146241583225 
9332" 

295 RETUR14 

300 LET G$ = " 0414103061173.812030 
22535136321533225933222132331314 
62425623142281" 

305 RETURN 

310 LET G$="®93115832259332©73B 
12338129332040312306156061" 

315 RETURN 

328 LET G $= "083812438105351554 X- 
1 SB3X XSBSX X SBSBBB3BBB4. XXSXX4XSXS 
3061 “ 

325 RETURN 

, 330 LET G $ = "5932243193453221421 

335 RETURN 

340 GOTO 340+fl*10 

35© LET G $ = "2532323201231323482- 


45124431952192015581501280134201 
520243221323444154423431©4332531 
55Æ1'-<JF5." 

355HRETURN 
380 LET Gf. 

347324932383üa.ïsaS442S36245124521 
95419081540154415541527055405063 

10S33S231@@3Ç)n991 rtoaaA «ioSSSS 


0592858285832 
365 RETURN 


24 732493 1SB3 1552659265720592006i 
34415271357131605161527052713272 
82739362135324415442655265541571 
35720" 

375 RETURN 

r 252„Vf1=©&A15341473S583S2S3 


34733510551105713572658315833' 
385 RETURN 

§ 390 LET G$="0834253431324732172 
3125302340233010511003061706101 
1034170617253010302331253132362 
33626“ 

395 RETURN 

408 LET Gfi="36324732101S481S171 
817213632313640234032” 

405 RETURN 

410 GOTO 410+A + 10 

,^?HLVfI~ë?;:' 15sa91013532025132 3s 

14428148331“ 

425 RETURN 


435 RE7US7*-’ 

, L f I „ 9 ^‘ ‘ 0S392 ® 7 152270424427 

'Sf^iETuiN 4 ' 93214 ' 83115234 ' 260202 ’' 
,*g 0 f "f*ti aiSa9a4 ' S32i4 - S3 l 

i 3i £fS30l60262S71221SOS2" 

4SS RETURN 
430 LET S$- . 

149321463 il 49: 

465 RETURW 
47® LET G$'="I7222®9iS23JS37240.22 

3 

i^75 RETURW 

749 REM MISE EN PLACE ET DESSIN 
OU LP-BVRINTE 
75© DXM R$(63,43) 

760 FRST 
778 CLS 

788 FOR N=0 TO 21 
790E3PR 


JEXT N 

810 GOSUB 288+H*148 
. 820 FOR N = 1 TO LEN G$ STEP S 
©30 FOR M=URL G$(N TO N+3LÏ TO V 
RL G® (N+4 TO N+5) 

340 FOR P=UAL G$(N+2 TO N+3) TO 
URL G$(N+6 TO N+7) 

©50 LET fi$(M,P)="0" 

850 UNPLOT M,P 

370 NEXT P 

888 NEXT N 

898 NEXT N 

900 GOSUB 270+H+140 

910 FOR N=1 TO LEN G$ STEP 5 

§l l ?K. L i T ^5 $ / U 5V GS(N TO N + l) ,URL 
G$(N+2 TO N+3) ) =G$ (N+4) 

- 9 S? IF G$ (N+4) ="1” THEN PRXNT Fl 
> ai-XNT (URL G$(N+2 TO N+3) S2 ), 
-lNT (URL G$(N TO N + 1),-2);"D" 

-„ 9 5r? XFG$(N+4) =" 2 " THEN PRXNT R 
i^ 21 - 9 ®fN+2 TO N+3) y B) j 
xNT (URL G$(N TO N+l)/S);"M" 

950 XF G$ (N+4) =“3" RND R = 1 THEN 
PRXNT RT 21-INT (URL G$ (N+2 TO 
N+3) /2)., INT (URL G*r.N TQ N+l),-2) 

;"SORTIE" 

i§ 0 ^,5 F „Ê* (N + 4) = "3" RND R=6 THEN 
PRXNT RT 21—INT (URL G$(N+2 TO 
. J S^^|^Ï NT <URL G$CN TO N + l) ,-2) 

970 NEXT N 
980 SLOU 
990 RETURN 

999 REH ANNONCE DU UEU 
1000 CLS 

.1010 PRINT RT 3,0; "RLLEZ CHERCHE 
^ LE TRESOR CACHE DANS LR PYRA 
HXDE RU BOUT DU LABYRINTHE.M 

HZS....ATTENTION." 

1090 a 5 INT >•" *-E LABYRINTHE EST 
-3 3 NXUERUX POUR DESCENDRE P 
TEINDRE LE COULOIR MARQUE""D" 
ET POUR MONTER LE COULOIR MRR 
: JUE "M" " " 

1030 PRINT ,,"POUR SE DEPLACER R 
PRUYER SUR LR TOUCHE MARQUEE D 
UNE FLECHE DANS LE SENS DE D 

©PLACEMENT" 

1050 PAUSE 300 
1060 CLS 

i960 PRINT RT 10,8;"UOUS PENETRE 
î DANS- LE LABYRINTE" 
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LU 





1970HPRUSE S® 
i960 RETURN 
2000 REM JEU 
3010 PRINT RT 0,10 
20la LET E=S 
•2013 LET D=E 
PLOT B,C 
1F INKEY $ = “S 
IF INKEY$="6 
IF INKEY $ = "7 
IF INKEY $ = " 3 
3037 UNPLOT B,C 
304-2 IF B +E >63 OR 
3 OR C +D <1 THEN GOTO 2012 
2044 IF R=1 RND fl$((B+E),(G+D)) 
•3” THEN GOTO 2400 

.2045 IF R=6 RND fl$((B+E) , iC+D) ) 
3" THEN GOTO 2350 


,$015 

.2020 

Ï2025 

2030 

3035 


t; "NIUEAU 

" ; fl 

THEN 

LET 

E = -l 

THEN 

LET 

D = -l 

THEN 

LET 

D = 1 

THEN 

LET 

E = 1 

B+E < 1 

OR C+D>4 


2060 IF RS ( (B+EJ , (C+D) 3 =’ 


THEN 


(C+D))= "0" THEN 
(C + D) J = “1" THEN 
(C+D) J = “2" THEN 


LET R=6 

1UOUS DESCE 


LET R = 1 

!01 


GOTO 20 ; 

3065®IF A$((B+E), 

GOTO 2250 
2070 IF R*C (B+E). 

GOTO 2230 
•20SO IF fl$ ( (B+E) . 

GOTO 2310 
2250 LET B=B+E 
2230 LET C=C+D 
3270 GOTO 2012 
2280 LET R=fl+1 
■2282 IF R >6 THEN 

2285 PRINT RT 10,0 ) “I 
MDEZ DRNS UN TUNELf^ 

2286 PAUSE 100 
2290 GOSUB 750 
.3300 GOTO 2000 
2310 LET R=fi-1 
5312 IF R <1 THEN 

3315 PRINT RT 10„ 

EZ DRNS UN TUNELl 

3316 PRUSE 100 
2320 GOSUB 750 
3330 GOTO 2000 
2350 PRINT RT 10,0; 

TRESOR fl DECLANCHE 

QUI CHANGE L ASPECT 
4TE .... BRROUHMM . . 

2360 PRUSE 150 
2370 LET H=H+1 
.5380 GOSUB 750 
2390 GOTO 2000 
2399 REM FIN DU JEU 
•5400 CLS 

2410 PRINT RT 5,1;“****»******** 
s-******-***.*****" 

2415 PRINT TRB 1;"*";TRB 28;"*"_ 
2420 PRINT •* * BRAUO, UOUS ETES o 

!RTI 
2425 
5430 


OUS MONT 


'Lfl PRISE DU 
UN .MECANISME 
DU LflBYRI 


PRINT 
DU * 

PRINT TRB 
PRINT 
TRESOR. *" 

5435 PRINT TRB' 1/ 
3440 PRINT 
*********” 

2999 STOP 


c Ij TRB 28;"*" 

* LRBYRINTE RUEC LE 

_ _ * " ; T RB- SG; " +• " 

******************* 


Lab 6 ZX81/16 K 

Un jeu de labyrinthe tout basic. Très 
vite vous apprendrez à dessiner 
vos propres grilles. N’accordez pas 
trop d’importance aux fautes 
d’orthographe que vous pourriez 
rencontrer par ci par là. 


i 

a 


s 

6 


10 REM 
20 LET 


Dominique Heles 


REM LRBYRINTE 6 NXUEflUX 
REM SUR Z.X.81+16K 

3 REM ******************* 

4 REM AUTEUR POTIER MICHEL 
‘ REM *******ORDI 5******* 

REM- 

- INITIALISATIONS 

H =0 

3© LET fl=i 
40 LET C=32 
50 LET S=63 
70 GOSUB 1000 
60 GOSUB 7 50 
S© GOTO 2000 
200 GOTO 200+R*10 

2L0 LET G®=“4939513904312031493 
56332362449242012491241065306491 
24909" 

215 RETURN 

220 LET G $ = ”4313431932395139173 
45334082827282724362421194319200 
84108043104382008201227242730323 
4-32-394 S254634 530S5334 " 

225 RETURN 

230 LET Qt=" 1333463329323532253 
02730082841281313211843254625201 
337130906560604150438131S132S163 
A2G342031203S25302534430&4313431 
94325462546385606S622** 

235 RETURN 

240 LET G$ = "0838133324383838143 
4253438274127092329233822562224© 
65506048904150906093014341438292 
329323506353238113838" 

34S RETURN 

250 LET G$="2431463105300930421 
.95519052S142885091409140S240S050 
005341406141432073231S819S030S58 
65540" 

255 RETURN 

250 LET i3*="S83850328S305930463.. 
25832320748070534053914141420243 
12439421942395933593943074818" 
265 RETURN 
270 GOTO 27®+fl*10 

280 LET G $ = ”033111912135241S406 
152391" 
ggg RETURN 

290 LET G$ = "43121843911S341072S 
12031227311428824419146242583225 
9332" 

300 LET gI="0414108061173312030 
22535138321533225933222132381314 
62425623142281" 

305 RETURN 

310 LET G*="0931153322593320733 
123331293320408123061S60S1" 

3 LS RETURN 

sala LET G «.="0333124381053515541. 
225-31 XSOSX XSBSSSSSSSS4X XSX 141513 
2061“ 

325 RETURN 

330 LET G $ = " 5932243193453221421 
2 " 

335 RETURN 

340 GOTO 340+fl*10 

350 LET G $ = "2632323201231323432 
45124431952192015531501230134201 
32024322132344415442343194332531 

3BSB9RETURN 

330 LET G*="2239403906342234233 
24732493253321823442836245124522 
3541903154015441554152705540S06G 
40639223422393221322840324039362 
13624401S4024S132S134S40SS419S92 
0592858285832” 

365 RETURN 

370 LET G$="18282728534155410to3 
9273932345134363247325S325S32363 
24 732493 XSS3 155265925572059200S1 
34415271357131605161527052713272 
32739362136324415442655265541571 
35720" 

375 RETURN 

380 LET G $="0841534147385838253 
*3234443859361&133213a&05510S08& 
60841181218283212323436263341473 
34733S10S5110S713S72658315333" 
3S5 RETURN 

390 LET G$="0834253431324732172 
5 31£5S0234025S010511006061706101 
910341706172530 10302331253132362 
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Moi /’iussi ( quand j 'étais j 
-JEUNE j 'ADOR/liJS les J 
LA ByR ; N THES ! //~Y- 



33626- 
395 RETURN 

*00 LET GJ="3632473210X84313171 
91721363336364.0234.032" < - 

*0 S RETt/RW 
410 GOTO 410+0*10 

144isi46331"" 5S29101353a02513a3S 
425 RETURN 

43® LET &Jr="3G3412S.3aS4e.3.314S.3-i 
11 '?3S&£G34‘33-S‘3&&5-11 3S4.3-153 ’ * 

435- SETUS4W 

4-4© LET G$.=" 0539207152270424-4.S” 7 

' 35 rg|?S 8 S‘ 3321iB31:lsa3 ^“tS 

liîlàildîüîiîmmïîiîP 1 ^ 

4SS RETURN 


*SS RETURM 
470. LET ©* 


* 17222®SiSa-S6.-3.7240aS 


4*75 &ETU1RH 

743 REM MISE EN PLACE ET DESSIN 
___ ^ OU LA.BYP.INTE 

7S0 DIM R®(63,43) 

7SS FRST 
77® CLS 

73® FOR Ms® TO 21 

8P â*SB«§ “ 

EXT*N 
SI® GOSUB 2@0+H*140 
S20 FOR N=1 TO LEN G* STEP S 
S30 FOR N=UPL 6®<N TO N+1 t TO V 
RL G® (N+4 TO N + 5) 

S40 FOR P=URL G$(N+2 TO N+3) TO 
URL G®(N+6 TO N+7) 

850 LET P®(M,P)="0" 

860 UNPLOT M , P 

870 NEXT P 

880 NEXT ti 

830 NEXT N 

900 GOSUB 270+H*140 

910 FOR N=1 TO LEN G® STEP 5 

920 LET fl*(URL GSCN TO N +1 ) , URL 

G$(N+2 TO N+3))=G$(N+4) 

930 IF G® CN+4) ="1" THEN PRINT R 
T 21 — INT (URL GStN+2 TO N + 3) /-2) , 
INT (URL G* (N TO N + 1) /Si } "D" 

940 IF G®(N+4)="2" THEN PRINT fi 
T 21-XNT (URL G®(N+2 TO N+3)/2), 
INT (URL G® (N TO N + l) S2) ; "M" 

9S0 IF G® CN+4) ="3" RND R = 1 THEN 
PRINT RT 21-INT CURL GSCN+2 TO 
li+3) /2) ,INT CURL G®CN TO N+ll /ai 
;"SORTIE" 

960 IF G® (N+4) ="3“ RND R=6 THEN 
PRINT RT 21—INT (URL G®(N+2 TO 
N+3) /2J , INT (URL G® (N TO N + D/2J 
;"TRESOR" 

970 NEXT N 
980 SLOW 
990 RETURN 

999 REM ANNONCE DU UEU 
1000 CLS 

1010 PRINT RT 3,0;"ALLEZ CHERCHE 
R LE TRESOR CRCHE DANS LR PYRR 
MIDE RU BOUT DU LABYRINTHE.M 

AIS....ATTENTION.“ 

1020 PRINT , , " LE LABYRINTHE EST 
R 6 NIUERUX POUR DESCENDRE fi 

/TEINDRE LE COULOIR MARQUE""D" 
ET POUR MONTER LE COULOIR MRR 


3UE""M. 

1030 PRINT ,,"POUR SE DEPLACER R 
3PUYER SUR LR TOUCHE MARQUEE D 
UNE FLECHE DANS LE SENS DE D 

^PLACEMENT" 

1050 PRUSE 800 
1060 CLS 

1960 PRINT AT 10.0;"UOUS PENETRE 
T DANS- LE LABYRINTE" 

1970@PRUSE 50 
1980 RETURN 
5000 REM ÜEU 

PRINT AT 0.10;"NIUEfiU ";A 
-'012 LET E=0 
■3013 LET D=E 
•3015 PLOT B,C 
3020 IF INKEY® 

-3025 IF INKEY® 

3030 IF INKEY® 

5035 IF INKEY®= 

3037 UNPLOT B, C 
2042 IF B+E >63 C 
2 OR C +D <1 THEN GOTO 2012 
3044 IF R = 1 RND A® ((B+E),(C+D))= 
■3" THEN GOTO 2400 ' 

.3045 IF A=6 RND R®( (B+E) , (C+D) ) = 
’3" THEN GOTO 2350 

( «B+E),(C+D))=“ " THEN 

GOTO 2012 


"5" THEN 

LET 

E = -l 

"6" THEN 

LET 

D = — 1 

“7“ THEN 

LET 

D = 1 

"S" THEN 

LET 

E = i 

OR B +E <1 

OR C +D > 4 


(C+D))=“0" THEN 


1 1“ THEN 


(C+D))="2" THEN 


2065I1XF fl* ((B+E) 

GOTO 2250 

-•070 if. fl® ( (B+E) , (C+D) ) 

GOTO 2280 
.3080 IF fl® ((B+E) 

GOTO 2310 
2250 LET BsB+E 
2260 LET C=C+D 
2270 GOTO 2012 
3280 LET fl=A+l 
■2282 IF R >6 THEN LET A = 6 
.5285 PRINT RT 10,0 ;"BÜ uous DESCE 
NDEZ DRNS UN TUNELS 1 ^ 

2286 PRUSE 100 
3290 GOSUB 750 
3300 GOTO 2000 
2310 LET Rofi-1 
.3312 IF R < 1 THEN LET R = 1 


OUS MONT 


LR PRISE DU 
UN MECANISME 
DU LRBYRI 


3315 PRINT RT 10 .0; 

ÆZ DRNS UN TUNEÎ 
2316 PRUSE 100 
2320 GOSUB 750 
3330 GOTO 2000 
2350 PRINT RT 10.0; 

TRESOR A DECLANCHE' 

QUI CHANGE L RSPECT 
(TE .... BRROUMMM . . 

2360 PRUSE 150 
2370 LET H=H+1 
2380 GOSUB 750 
5390 GOTO 2000 
5399 REM FIN DU JEU 
2400 CLS 

-'410 PRINT AT 5.1;" ************* 
*■ **************" 

2415 PRINT TAB 1; " *• " J TRB 28."*" 
§RTI DU 1 *" " * BfeflUO.UOUS ETES 3 

2425 PRINT TRB 
2430 PRINT " * 

TRESOR.*" 

•?435 PAINT T PB' Z; 

2440 PRINT 
*********" 

3999 STOP 


1; ” *"; TRB 28; "*’ 
LRBYRINTE RUEC L 


LE 


_ * "y T PB' as,"*" 

***************** * * 


Michel Potier 
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BRICOLAGE 


Sortie 

Vidéo/Son 



Vidéo noir et blanc sur spectrum et 
possibilités vidéo son 

De nombreux lecteurs ont été 
intéressés par les articles des 
numéros 5 et 8 consacrés au 
branchement du Spectrum sur 
moniteur, mais ne réussissent pas 
forcément les transformations 
suggérées : il faut en effet prendre 
en considération qu’il y a plusieurs 
séries de Spectrum et que toutes 
ne se prêtent pas aussi facilement 
aux modifications indiquées. 


Quelques compléments utiles. 

La sortie vidéo du numéro 8 est avant tout desti¬ 
née à un moniteur vidéo noir et blanc ; l’image 
est bonne et peut être encore améliorée si l’on 
remplace, selon, la suggestion de B. Breton, la 
résistance de 4,7 K par une diode de signal 
(genre 1N4148). On peut envoyer ce signal sur 
la prise Péritel : vidéo (broche 20) et masse à la 
masse (broche 17), ce qui fournit une bonne 
image noir et blanc I, meilleure que la vidéo 
PAL. 


La transformation bi-standard du n° 8, page 50, 
permet d’utiliser l’entrée antenne UHF du télévi¬ 
seur, soit en PAL et en couleurs, soit en « SE- 
CAM » (C5d aux normes françaises) mais en 
noir et blanc. 

Certains téléviseurs couleur récents possèdent 
un décodeur vidéo mixte PAL-SECAM (écono¬ 
mies pour le fabricant !) même si la fente récep¬ 
tion UHF n’accepte que la modulation positive, 
donc SE.CAM. 

Avant d'acheter une sortie PERITEL, ou un 
adaptateur PAL/PERITEL (de C.G.V.), essayez 
d’envoyer le signal vidéo PAL du Spectrum sur 
l’entrée vidéo de la prise PERITEL (broche 20 et 
masse broche 17). Cette vidéo est disponible à 
l’entrée du modulateur, ou sur la broche 15B, 
(dessous) du connecteur arrière du Spectrum. 


(Sur certain modèles version 2, elle n’est pas ra¬ 
menée sur le connecteur, car il manque le cava¬ 
lier vidéo à gauche des 2 condensateurs ajusta¬ 
bles). (Voir manuel du Spectrum à la fin du 
chapitre 23). 


Si l’image apparait en couleur (eh oui) c’est ga¬ 
gné, sinon elle est noir et blanc et i'adapteur PE- 
RITEL est nécesaire. 


Video PAL •*- j- 

□ . ,_, ; 

_„ video (broche 20 Péri tel) 

1 * - .——j fc son (broche 6 Peritel) 
aDC P-1 masse (hroches17&4 Peritel) 

EAR 15 Kn W 

7*7 

dans le Spectrum 

vers l adaptateur ou la prise Peritel 
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Proposition de sortie Vidéo/Son Montage mécanique solidaire du circuit imprimé, 

à côté du modulateur, avec une équerre, fixée 
Il reste largement de la place à côté du modula- par vis. 

teur, côté prise antenne, pour placer une fiche -——- 

Jack 3,5 mm stéréo, fixée soit au couvercle, soit 

mieux sur une équerre fixée au circuit imprimé. / 

Relier le centre à la vidéo PAL ec rou ^ 

Relier le second contact à la sortie EAR, avec 

une résistance de 15 k rondelLeX^ (jCy 

relier le corps à la masse. J3ck 



Le fil de la résistance 15 k qui relie la sortie EAR à la prise Jack doit être isolé. 


Voici enfin un croquis du Spectrum modèle III pour y trouver le signal Y en vue du bricolage bi- standard 
proposé dans Ordi-5 n° 8 page 50 pour le modèle II. 


souder ici la résistance delSKapour sortie son 


15Kn 


emplacement 
prise jack 
stéréo 35mm 

video PAL^ 


EAR MIC 


MODULATEUR 


RADIATEUR 


s r 

1 groupe 
de résistance- 


SPECTRUM 
modèle 3 


2 eme groupe 
de résistance 


3 eme resistance 22KixY 
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STATISTIQUES 


Specirographe spécia 



La haute définition, la couleur et le son peuvent donner de la vie aux 
tableaux statistiques les plus rébarbatifs : voici deux exemples, 
facilement adaptables à tous les besoins, de programmes graphiques qui 
tirent le meilleur de ce que peut donner le Spectrum. 

« HISTOGRAMMES » de M. DAHAN joue sur les perspectives, 

« HISTOGRAPHES » d’E. BAHBOUT est davantage orienté sur les 
descriptifs annuels et peut gérer un microdrive. 


HISTOGRAMMES 



10 REM HISTOGRAMMES 

20 REM - 

30 REM M.DAHAN 

50 BORDER 2s PAPER 6s INK i: 8RIGHT 1 
60 CLS 

80 PAPER 5: PRINT AT 8.8;"#************»»***“ 
;AT 9.8:"* *" 

90 PRINT AT 10,8s"* HISTOGRAMME #"SAT 
11.8;"* *":AT 12.8:“ 

***#*************" 

100 POKE 23609.100 

110 INK 6: PAPER 1 

120 PAUSE 80: CLS 

200 REM *********************** 

210 PRINT ,."Voulez-uous..." 

220 PRINT " 1 - Entrer les valeurs ?" 

230 PRINT " 2 - Utiliser la mémoire ? 


240 INPUT "1 ou 2 ?" :MS 

250 IF M$OM“ AND M*<>"2" THEN 60 TO 240 
260 1 F. MS= “ 1 " THEN GO TO 300 
265 INPUT “Quel est le nom ?" sES 
270 INPUT “Quel est le drive ?";d 
275 PRINT INK 0: FLASH î:AT 5.6:"RECHERHE EN COU 
RS" 

280 OPEN H4:"m":d:E* 

282 DIM N<3> 

284 FOR F=t T0 3; INPUT »4:N<F>: NEXT F 
286 INPUT W4:C: INPUT H4;G 
288 DIM M<N<1).C) 

290 FOR 1=1 T0 N<1 ) : FOR J=1 TO NU + l) 

292 INPUT H4:M<I.J) 

294 NEXT J; NEXT I 
296 DIM CS<2) 

298 INPUT H4:TS: INPUT H4:SS: INPUT 84:VS: INPUT 84:WS: 
INPUT 84:AS: INPUT 84:C$U>: INPUT 84:C$<2> 

299 CLOSE 84s LET MS=“3": CLS ; GO TO 700 

300 REM *********************** 

305 DIM N<3> 

310 PRINT .."Combien voulez-vous entr 
er de sériés de nombres ?" ; 

320 INPUT "1 ou 2 ?"tN(l) 

330 IF N< 1)01 AND N<1><>2 THEN GO TO 320 

340 PRINT *.INVERSE 1:N<1> 

400 REM *********************** 

410 DIM CS<2> 

420 FOR Q=1 T0 2; PRINT .."De quelle couleur 
voul ez-vous" 

430 IF Q=1 THEN PRINT " Les Histogrammes ? 


=": INVERSE 


“Valeur 


440 IF 0=2 THEN PRINT " Le Papier ?" 

450 FOR F=0 TO 7: PRINT-" INK F; PAPER 9;F? 

* ; : NEXT F 

460 INPUT "De 0 a 7 ?“;C*<Q> 

470 1F INT VAL C*<Q>>7 THEN GO TO 460 
480 PRINT 
490 NEXT Q 

495 IF MS="2" THEN GO TO 700 
500 REM *«**###**##*##******#*« 

510 LET C=1 

520 FOR F=1 TO N(l): IF M*=“l" THEN PRINT : PRINT " C 
mbien de valeurs pour la 

se r1e ":F, _ 
530 IF M*="l" THEN INPUT N<F+1): PRINT INVERSE t:N<F+l) 
540 IF C<=N<F+1) THEN LET C=N<F+1> 

550 NEXT F 
560 CLS 

600 REM *********************** 

610 LET 6=0: IF M*="l" THEN DIM M(N<1).C) 

620 FOR F=1 TO NU): IF M*="l" THEN PRINT ,, “Sérié 
"» INVERSE 1 : F 

630 FOR B=1 TO N< F+1> : IF M*="l“ THEN PRINT 
“ ;B: “. 

640 IF MS="1" THEN INPUT M<F,B>; PRINT M<F.B> 

650 IF M<F,B)>G THEN LET G=M<F'.B) 

660 NEXT B: NEXT F 

670 FOR S=0 TO 3: IF <G+S)/4=INT <<G+S)/4) THEN GO T0 
690 

680 NEXT S 

690 LET G=G+S: CLS 

700 REM e***************.******* 

705 INK VAL CSU): PAPER VAL CS<2): CLS 
710 FOR F=26 T0 27: PLOT F,159: DRAW 0.-159: NEXT F 
720 FOR F=10 T0 11: PLOT 16,F: DRAW 223,0: NEXT F 
730 PRINT AT l,3;;"f";AT 20,30;“ “ 

740 LET W=G+G/4 

750 FOR F=5 TO 17 STEP 4: LET U=U-G/4 

760 PRINT OVER 1:AT F-l,3j"- 

-- ;AT F-l,3-LEN STRS W;W 

770 NEXT F 

800 REM *********************** 

810 LET E=INT <200/0 
820 FOR F=1 TO NU) 

830 FOR B=1 TO N<F+1) 



840 IF F=i AND N<1)=2 THEN FOR U=0 T0 1: PLOT 33+U+<B- 
1> *E,12 : DRAW 0,<M<F,B)/G*126)-U: DRAW E/2 
-2-2*U,0 : DRAW 0,-U-<MCF,B)/G*126): NEXT U 
845 IF N(1>=2 AND F=1 THEN PLOT 33+<B-i)*E,12: DRAW 
0,<M<F,B)/G*i26): DRAW 5,5: DRAW E/2-3,0: DRAW 
-5,-5: DRAW -<E/2-3),0: DRAW E/2-3,0: DRAW 0,-< 

M<F,8)/G*l26): DRAW 5,5: DRAW 0,<M(F.B)/G* 

126) 

850 IF F=2 AND. N< 1>=2 THEN FOR U=0 TO E/2-6: PLOT 31 + < 
B-l)*E+U+E/2,12: DRAW 0,<M<F,B)/G*i26 
): NEXT U 

855 IF NU>=2 AND F=2 THEN PLOT E/2+30+<B-i)*E. 

12: DRAW 0,<M<F,B)/G*l26): DRAW 5,5: DRAW E/2-6 
,0: DRAW -5,-5: DRAW -<E/2-6),0: DRAW E/2-6,0: DRAW 
0 , - U +M<F ,B)/G*126) : DRAW 5,5: DRAW 0.U+M 
<F ,B)/G*126) 

860 IF NU)=1 THEN FOR U=1 TO E-3: PLOT 32+<B~i)*E 
+U,12: DRAW 0,<M<F,B)/G*l26): NEXT U 
870 IF NCI>«1 THEN PLOT 32+<B-I)*E,12: DRAW 0,<M 
<F,B)/G*126): DRAW 5,5: DRAW E-2,0: DRAW -5,-5: 

DRAW -< E-2),0 : DRAW E-2,0: DRAW 0,-<M<F,B)/G*1 
26): DRAW 5,5: DRAW 0,<M<F,B)/G*126) 

880 NEXT B: NEXT F 

900 REM *********************** 

910 IF MS=“3" THEN GO TO 980 

920 INPUT INVERSE l;"Quel est le titre ?":TS 

930 INPUT INVERSE l;"Quel est sa suite ?";SS 


1 :“0 


940 
" ;VS 
950 
WS 
960 


INPUT 

INPUT 

INPUT 


INVERSE l;"Legende des ordonnées ? 

INVERSE 1 ;"Que 11e est sa suite ?" : 

INVERSE l;“Legende des abscisses ? 
" ;AS 


970 LET MS=“3": CLS : GO T0 700 

980 INK 9: PRINT INVERSE 1;AT 0,16-LEN T*/2;T*:AT 1.16- 
LEN S*/2:SS 

990 PRINT AT 2,1;VS;AT 3.1jWS;AT 21,4;AS 
1000 REM *********************** 

1010 LET ST=0 

1020 FDR F=1 TO NU): FOR B=1 TO M<F+1) 

1030 LET ST=ST+M< F,B) 

1040 NEXT B: NEXT F 

1050 PRINT AT 3.26:“N=": ST : LET P=0 

1060 FOR F=1 TO N<1) 

1070 LET SC=0: LET M=0 
1080 FOR B=1 TO N<F+1) 

1090 LET M=M+M<F.B>: LET SC=SC+M<F.B) A 2 
1100 NEXT B 

1110 LET CS=M A 2: LET M0=INT <M/N<F+1)>: LET ET= 

INT <10*SQR < <SC/N<F+1))-<M/N<F+l) ) A 2) 

/ 10 ) 

1120 OVER 1: IF F=1 AND M<1)=I THEN PRINT'AT 5.25:"MO=": 
MOjAT 6,25:"ET= M :ET 

1130 OVER 1: IF NC1)=2 THEN PRINT AT F*4+1.26;CHRS <143+ 
3*<2-F));"=";M: PRINT AT F*4+2,25;”MO=": 


MO:AT F«4+3,25;“ET=":ET 


1140 OVER 0: NEXT F 


1145 

INK 

6: PAPER 

1 



1150 

IF 

INKEYS=“2 " 

THEN 

C0PY 


1160 

1 F 

INKEYS="C' 

THEN 

CLS : 

GO TO 400 

1170 

IF 

INKEYS=“L r 

THEN 

G0 TO 

920 

1175 

1F 

INKEYS="F* 

THEN 

L0AD 

*"m“; 1 :"run 

1180 

IF 

INKEYS="S* 

THEN 

GO TO 

1500 

1190 

1F 

INKEY*="" 

THEN G0 TO 

1150 

1200 

GO 

TO 1150 





1500 INPUT "Nom de l'écran ?":ES 
1510 INPUT "Numéro du drive ?"sd 
1520 OPEN #4 ;“m":d: ES 

1530 FOR F=1 TO 3: PRINT #4:N<F>: NEXT F 
1540 PRINT «4;C'G 
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S 550 FOR 1 = 1 TO N(1>j FOR J=! TO N(l+1> 
15<50 PR INT S4 îM<I,J) 

1570 NEXT J : NEXT I 

1580 PRINT B4:T*'S*'V*'W*'A*'C*n>'C®< 


1590 CLOSE H4 
1600 GO TO 1150 

8999 STOP 

9000 DATA "f",48,120,180,48,48,48.48, 
48, “t *,0,0,4,2,255.255,2.4 


*00! DATA ,255,255,1^5.195,195,195 
,255,255 
9005 RESTORE 

9010 FOR N=1 TO 3: READ P* 

9020 FOR F=0 TO 7; READ G: POKE USR Pï+F.G 
9030 NEXT F: NEXT N 
9040 CLS : GO TO 10 

9100 ERASE "M" s 1 :"H!STO" : SA'-'E *"M" j 1 : " H! ST 
O" LINE 9000 

9199 STOP 

9200 ERASE "M“jd;E* 
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1 REM *•***■**■**•*•*■*■*:(■*■*■£■*.**.***.*. 

S REM if -3f- 

? Histoarâphes * 

i g|M * © 1984 Eric Bahbout * 

5 REM * & Drdi-s * 

6 REM & fi 

7 REM 

S FOR X=65366 TO 65527 
XQ PERD b: POKE X , b : NEXT X 
11 DRTfl 32,16,56,4-, 60,68,60,3, 
6,16,56,63,120,64,60,0,32,16,56, 
63,120,64,60,0 

_ 12 PRTfi 16,40,56,63,120,64,60, 
S 'ië'tg'§ë > *,60,63,60,0,0,0,èS,3 
2^33,32,23,3,16,40,0,68,63,63,56 

13 DRTfl 136,136,136,243,136,13 
7, 134,0,0, 123, 15, 144,142, las, 3.S© 
,0,32,32,252,33,33,33,30,0 

14 DRTfi 0,0,225,13,13,13,225,0 
,0,0,194,35,34,36,243,96,160,32, 

15 DRTR 0,0,7,200,72,136,247,0 
,0,0,136,143,137,153,104,6,3,3,© 
4 0^0,0,0,0,24,36,36,40,53,101,16 

~'lB DRTR 0,0,112,137,240,123,12 
7,0,0,3,224,0,224,16,224,0 
17 POKE 23609,30 

16 GO SUB 990: CLS 

2© LET S=0: LET ,6=4: LET C=l©: 
LET a = lB: LET b=2: LET f»=3 
23 DIM f (12, 6) : DIM t$(12,10): 
DIM g(12,6): DIM h(12,6) 

25.'PRINT RT 0 , 0 ; INK E; "Hlsfcoo«xc 
viRea. " ; BT 1,3; " ; RT 1,6;'; RT 

b j 11 J INK 7; f 'RlstDQACWiAes RT 1,14 

; " ° ; RT 1,17;.; RT 0,22; INK 2 

; •■H^too^aNlas “ ; RT 1,25; , RT 1, 

23; " " 

26 PRINT RT 2,0; INK 4;"flnRée: 

27 IF s=0 THEN PRINT RT 19,0; 

TNK 4;"R quelle année se réffer 
ent vosrésultats INPUT at: B 

SEP .5,7: BEEP .6,0: PRUSE 5: BE 
EP .5,24: GO TO 34 

23 PRINT RT 2,7;at;RT 19,0;"Uo 
y-i&z - vfifUi ch&ns&r l ' anrtè-e- ?" -• 
PROSE 0 

29 IF INKEY $ = "0“ OR INKEY®="0" 
THEM BEEP ,5,12: PRINT RT 20,0; 
"Nouvelle année INPUT hi: LE 

T at=hi: BEEP .5,7: BEEP .6,0: P 
RUSE 5: BEEP .5,24: GO TO 34 

32 IF INKEY® < >"n" RND INKEY®<> 
"N" THEN BEEP .8,-24: GO TO 23 

33 BEEP .3,-24 


7 34 PRINT RT 2,7; INK 4; FLRSH 

t*(lî ■"janvier": LET t$ 
<2) ="Février let t®(3)="Mars": 
LET t|(4) =• flyrf l" : LET t $ (5) ="M 
ai": LET t ®(6) = Juin": LET t$C7) 
? LET t$(8)="floÛt"" LE 

? t ® (9) =''septemhre" LET t®(i©) = 
°i C =£ b f £ïi 1 ® 1 11 i ="No vem br e " 

: i;E T t $ (123 = Décembre" 

37 FOR n= 1 TO 12 

40)PRINT RT e,0; INK 6 ;t$(n) 

41 LET e=e*l 

42 NEXT n 

43 FOR n=l TO 12 

0; " lns cri vez le 

il de U ";t®(n?fft ** 

45 INPUT f(n,6) 

*6 IF f(n,6)>180 THEN BEEP .8, 
-24; PRINT RT 19,21; FLRSH !;"(< 
PAUSE 60; PRINT RT 19,SI 
'(<=130)"; GO TO 45 
47 BEEP .1,0 

43 LET m=B)+l: PRINT RT m,15; I 
r)=12 THEN PRUSE 

iB: a BEE p 1,-12: PRUSE 30: BEEP . 
sb^next n 

!u- 5 i.»5J WT 8 ®i RT FLRSH 1; I 

2, Appuyez une touche": PR USE 
0: BEEP ,5,12: GO. TO 570 
TK,^2„2b S : INK 7; PRINT RT 0,9; 

5| R F0R 1 À=l R ?g U 5I ION RNNEE " ;at 

H .60 PRINT INK 6; SRIGHT I; RT a, 

Il , I £-^ n < =? TJ (EN GO TO 70 
67 LET b=l 
70 LET C=C+10 
30 LET a =3-1 
90 NEXT n 
130 LET a=21 
140 LET b=3 
145 FOR n=l TO 12 
150 RERD d$ 

160 INK 2: PRINT INUERSE 1;RT a 

i* ( O 

165 LET fe = É>+ 2 
170 NEXT n 

172 LET q =59 : LET r=0 
l'3 FOR n=0 TO 12 

PLOT q,r: DRRU 0,12 
176 LET q=q+16 
178 NEXT n 

= | 0 ?. SKStIi. PRINT r 7 21,2; INUEF 
jc i;"MOIS 

210 LET X =59 
220 LET ÿ=16 
225 FOR n =1 TO 13 
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230 INK 4.; PLOT X , y : DRRU 0,14-4, 
235 LET X=X +16 
24.0 NEXT n 

250 LET X =34- : LET y =24- 
260 FOR n =1 TO 16 
270 FOR k =1 TO 6 

275 PLOT INK 6; BRIGHT l;x,y: L 
2T X =X + 4 
260 NEXT K 
285 LET X =34 
S‘90* L ET y* -=y* 4 3 
300 NEXT n 
330 LET X =59 
335 LET y =8 
34.0 FOR J=1 TO 19 
350 LET y =y +S 

360 INK 4: PLOT X,ï: &RRU 101,0 
410 NEXT j 

415 DRTR "vJ" , "F" , "H" , "R" , "M" , "U 
, 4" , 'R' 1 ," S' ,"0 , "N" , "D" 

430 IF p$="2" TMEN GO TO 700 

450 LET X =48 

460 FOR n =1 TO 12 

470 LET #1=1.25 

460 LET y=17 

490 LET X=X+16 

510 IF ffrt, 6)<=l» THEN GO TO 600 
530 INK 5: PLOT X,y: DRRU 6,0 
570 LET y =y 41 
560 LET B=a+1,25 
590 GO TO 510 

600 INK 5: PLOT X , y : DRRUI 6,0 
640 NEXT ri 

SS0>PRUSE 100: GO TO S90 

700 LET X =52 

710 FOR n =1 TO 12 

720 LET B) =1.25 

730 LET y=17 

740 LET X=X+16 

750 IF f (n,6) <=l» THEN GO TO 79G 
7S0 LET y=y+l 
770 LET m=m + 1.25 
730 GO TO 750 

790 LE T gfn,6)=X: LET h(n,6)=y 

600 NEXT D 

610 FOR n =1 TO 12 

620 LET |-=g (n+l,5ï -g (n ,6Ï : LET 
i =h (n+1,63 -h Cn,6î 
630 PLOT g (n,6) ,h (n,6) : DRAW r, 

~640 IF n =11 THEN GO TO 66© 

850 NEXT n 

660 PRUSE 100: GO TO 890 
670 CLS : PRXNT RT 0,12; FLASH 
1; INK 4;"fippuyez:": PRINT : PRI 
NT : PRINT : PRINT "La touche -1 

- pour illustrer vosrésultats se- 
us forme d 'histogra-rames,": PRXN 
r : PRINT : PRINT "La touche -2- 

pour les i itustrersous forme d' 
un graphique." 

672 PRINT RT 13.0;"Là tOUChe 

- pour modifier les nombres prôc 
âdemment insérés»": PRINT : prih 
r : print "Une touche quelconque 

pour arrêter le programme. 


875 PRUSE 0 

680 LET P$=XNKEYS: XF p$="l" OR 
Pîo"2" THEN BEEP .5,24: GO TO 8 
35 


PRINT »0;RT 1 
,28;" “; RT 

2;"Appuyez un 
: BEEP .5,12: 


882>IF p$="3" THEN BEEP .5,24: 
"LS : LET e =4 : LET S=l: LET I» =3. 
GO TO 25 
863 GO TO 1000 

885 LET a=13: LET b=2: LET C=l© 

: RESTORE 150: GO TO 57 
690 PRINT »0;RT i,2j "UOUUZ-VOU 
s imprimer l'image ?" : PRUSE 0 
900 IF INKEV$ = "n" OR INKEY* = "N ,: 
THEN BEEP .6, -24 : GO TO 930 
910 IF INKEY $ < >"0" AND INKEY $ < ;• 
"O" THEN BEEP .6,-24: GO TO 890 
92© BEEP .5,12: C-OPY 
930 PRINT »0;RT 1,2;"Uoulez-vou 
s sauver l'image PRUSE 0 

940 IF INKEViÿ = "n “ OR INKEY$ = "N‘ 
THEN BEEP ,6,-24: PRINT »0;RT 1 
S ' ” " * Pf"Y i SQ} 11 “ J RT 

i, 10; FLASH l; INK'2;"Appuyez un 
e touche": PRUSE 0: BEEP .5,12: 
■30 TO 67© 

945 IF INKEY $ < >"0“ AND INKEY*< > 
"O" THEN BEEP .8,-24: GO TO 93© 

_ 350 BEEP .5,12: INPUT " Titre 

955^IF a* = "" OR LEN a*>10 THEN 
3EEP .3,-24: GO TO 950 
960 SRUE a$SCREEN$ 

980 PRINT SS;RT 1,10; FLASH 1; 
INK 2;"Appuyez une touche": PAUS- 
5 0: BEEP .5,12: GO TO 870 

990 Pfi-PSR- 0.' BORDER 0.- CLS .■ PH 
"ER O.- SC-RSER O/ ZMX S: 0 R IG HT 0 
: PRXNT RT 0,5; "Eric Bah bout pr£ 
sente:": PRUSE 50 

991 FOR K =1 TO 10: FOR J=0 TO 7 
PRINT RT 3,0; INK J ; "RistOQAOK^e- 
Ristoo.'iahfies HijrtoQÆanRès “ ; RT 4,3; 

" b ";rt 4,6;" "; RT 4,14;" 0 "; RT, 
4 ,i?;"'";RT 4,25;" ^ ;rt 4,28;"• 

" : NEXT j : NEXT K 

992 PAUSE 100: INK 5 

993 PRINT RT 7,0;"... Un progra 
ntue simple qui vouspermettra de 


tracer rapidement vos histogram 
■nés ou vos graphi- ques. Insérez 

tout d'abord l'année pour 

laquelle vous voulez étudie 

r une courbe, puis-, tes nombres r 
elatifs â la pro- duction de ch 
aque mois." 

994 PRINT RT 16,©;" Possibi lit 
§ d'imprimer ou de sauvegarder 
l'image ainsi pro- duite. Bon t 

Is5* PRUSE 100: PRINT #0;AT 0,7; 

FLRSH i; INK 2;"Appuyez une tou 
Chê": PRUSE S: BEEP .5,12: RETUR 

997 REM U.D.O.: à é è ê â t 0 

995 REM Lettres: a b C d e f 9 

999 SRUE "HiStO" LINE 1 


1 Possibiti 
sauvegarder 
duite. Bon 





£ ectem 



ORDI-5 veut faire le point sur ses qualités et ses défauts en se tournant 
vers ses lecteurs ; beaucoup de lettres nous sont parvenues avec des 
indications précieuses mais rien ne vaut un sondage (puisqu’il y en a à 
propos de tout et de rien). A cette fin, ORDI-5 vous invite à répondre au 
questionnaire ci-dessous qui comporte trois rubriques ; la première vous 
concerne, la seconde intéresse votre système et enfin la troisième est 
consacrée à votre revue. Les informations que vous nous donnerez ne 
seront pas traitées à des fins commerciales et ne seront pas utilisées 
pour constituer un quelconque fichier nominatif. Elles ne seront d’ailleurs 
conservées que le temps de leur analyse par la rédaction et le temps 
d’un tirage au sort qui vaudra à quatre des lecteurs qui auront répondu 
un abonnement gratuit à ORDI-5. Adressez vos réponses à Vadresse 
suivante : ORDI-5, « Enquête lecteurs », 8 rue St Marc, 75002 PARIS. 



VOUS 


1 - Age ? ans 

2 - Sexe ? □ Masculin 

□ Féminin 

3— Profession ? 

4 - Connaissez-vous l’anglais ? 

□ oui 

□ non 

□ un peu 

5 - Depuis combien de temps vous intéressez- 
vous à l'informatique ? ans 

6 - Utilisez-vous votre système : 

□ à des fins professionnelles 

□ à des fins pédagogiques 

□ comme « hobby » 

□ autres utilisations. Lesquelles ?_;_ 


9 - Vous intéressez-vous davantage : 

□ au matériel 

□ au logiciel 

□ aux deux 

10- Quel langage pratiquez-vous le plus : 

□ Basic 

□ assembleur 

□ autre. Lesquel ?__ 


11 - Etes-vous affilié à un club ? 

□ non 

□ oui 

12 - Dans votre entourage proche, combien 
d’autres utilisateurs connaissez-vous 
environ ? 

13 - Combien d'heures par semaine votre 
système vous prend-il ? 

14 - Comment votre entourage prend-il votre 
passion pour l’informatique individuelle : 

□ bien 

□ indifférent 

□ mal 


7 - Préférez-vous : 

□ utiliser des programmes tout faits 

□ écrire des programmes 

□ les deux 

8 - Combien de programmes possédez-vous 
(environ) ? 


VOTRE SYSTEME 


1 - Combien de systèmes basés sur des 
microprocesseurs possédez-vous (ordinateur, 
ordinateur de poche, calculatrice) ? 
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2 - Décrivez votre configuration principale. 
Marque 

Modèle 

Année de fabrication 

Taille mémoire totale K octets 

3 - Marque et type de votre enregistreur à 
cassette : 


4 - Possédez-vous une imprimante : 

□ Sinclair 

□ Seikoscha 

□ Alphacom 

□ autre.-——— 

5 - Placez une croix en face de celles des 
extensions suivantes que vous possédez : 

□ Mémoire 16 K 

□ Mémoire 64 K 

□ Mémoire 48 K 

□ Interface ZX1 

□ Interface ZX 2 

□ Microdrive 

□ Clavier additionnel 

□ Carte couleur 

□ Carte graphique 

□ Carte E/S 

□ Carte interface imprimante 

□ Carte sonore 

□ Mémoire permanente 

□ Carte multifonction 

□ ROM BASIC français 

□ autre, préciser --— 

6 - Quel genre d’extension vous manque le 
plus parmi celles qui existent ? 


7 - Quelle serait pour vous l’extension 
« rêvée » (qui n'exite pas encore) ? 


8 - Quel prix consentiriez-vous à y mettre ? 


9 - Si vous deviez changer de système, quelle 
motivation orienterait votre choix et de quel 
système s’agirait-il ? -- 


10 - Donnez en quelques mots les critiques 
que vous pourriez adresser à votre système 
actuel _-— 


11 - Donnez en quelques mots les louanges 
que vous pourriez adresser à votre système 
actuel 


ORDI-5 ET VOUS 


1 - Comment avez-vous découvert ORDI-5 ? 


2 - Quelle vous paraît être la principale qualité 
d’ORDI-5 ? _:- 


3 - Quelle vous paraît être son principal 
défaut ? 


4- Le niveau général d’ORDI-5 vous semble-t- 
il : 

□ trop bas 

□ à la bonne hauteur 

□ trop technique 

□ pas assez pédagogique 

5 - Que pensez-vous de la présentation 
matérielle d’ORDI-5 ? 


6 - Quelles autres revues informatique lisez- 
vous régulièrement ? -- 


7 - Réponse facultative mais indispensable 
pour participer au tirage au sort (bien entendu, 
votre adresse ne fera l'objet d’aucune 
utilisation commerciale, conformément à la loi 
du 6 janvier 1978) : 

Nom, Prénom--- 

Adresse-—- 


Code Postal_Ville. 

Pays- 
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D’ECONOMIE 


programmer 
un ordinateur est 
devenu pour vous 
un loisir, un plaisir... 
une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 
dans la conception des programmes 
qui “tourneront” sur votre machine. 

LIST vous initie aux langages informatiques 
et sélectionne les meilleurs livres pour 
progresser. LIST vous informe de l’actua¬ 
lité et vous fournit trucs, astuces et idées 
pour mieux programmer... 

Pour être sûr de ne rater aucun numéro 
et pour recevoir LIST chez vous, 
abonnez-vous ! 


VOTRE CADEAU! 

D'un format pratique (11,5 x 
25 cm), le TRANS’BASIC est 

une table de conversion des 
instructions BASIC des 
21 micro-ordinateurs les 
plus courants. Ce livret de 
24 pages vous permettra 
d’adapter sur votre ordi¬ 
nateur la plupart des 
programmes conçus 
pour les autres 
machines. 


BULLETIN D’ABONNEMENT 


(à retourner à LIST - Service Abonnements - 5, place du Colonel Fabien - 75491 Paris Cedex 10) 


Nom —_____- Prénom _ 

Adresse ___ _ 

Ville— - Code postalI _I_I_I_I_I Pays _ 

Veuillez m'abonner pour 10 numéros au prix avantageux de 160 F* au lieu de 200 F - prix total au numéro - et m’adresser en cadeau 
le TRAMS 'BASIC. Je joins mon règlement indispensable libellé à l’ordre de LIST 


•Belgique: 1330 FB; Suisse: 50 FS; Canada: 30 $C; autres pays: 210 FF. Par avion: Afrique Francophone: 245 FF; Amérique, autre Afrique, Océanie: 305 FF; Asie: 355 FF. 
Belgique: Soumillion, 28, av. Massenet, 1190 Bruxelles. Versement Société Générale 2100405 835-39. Suisse: 19, route du Grand-Mont, CH 1052, Le Mont-sur-Lausanne 
versement Caisse d'Epargne et de Crédit, 10-2418 Le Mont CH 1052, compte courant n° 650156-7 Canada : LMPI, 9345, rue de Meaux, St Léonard (Québec), H1R 3H3, Canada 
Autres pays : 5, place du Colonel Fabien. 75491 Paris Cedex 10. 

































Belgique : 186 FB - Suisse : 7,5 FS - Canadq/2.95 $C 


DOSSIER 

PLUS DE 200 ORDINATEURS 
TABLEAUX COMPARATIFS 

PANORAMA 
PRINTEMPS 85 

TOUS LES DERNIERS-NÉS 


LAS VEGAS : 
LE CHOC AA 


23 F EN VENTE CHEZ TOUS 
LES MARCHANDS DE JOURNAUX 


M 2946 - 68 - 23 F 


’ESSAI : 

HP 150, ALICE 90 


promo-top 






